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PARAOCP500 



Para que futuro voce esta 
educando seu filho? 




Os dois usam computation 



u> 



■ ssfm como toda educacao 
]^ ^^H emana de alguma imagem do 
^f I future toda educacdo emana 
M I alguma imagem do futuro." 

M ■ lAlvmJoflier) 
O CI? 200 da Prola.)ka e simples de operar. 
casta menas do que um Iv a cores e faz 
impor lantes traixilhos de inleresse de loda a 
fanulia. Com ele voce e seus jilhos apicmiem a 
iinguagem "Basic" e fscam aplos a proqramar 
-jualquer lipo de computador, participando e 
criamio momenta atuat que jd e chamado de 
"a era da informatics". 
Qasta ligar o CP 200 a um televisor e a um 
aravador para voce ler um computador 
completo em sua casa. 
Assim como o extrato de tomale. o 
liquidifkador, o durex. o automovel, a mdquhrn 
de escrever e a cakuladora, o CP 200 vai 
simplifkar sua vida. 



E vai dar mais tempo para voce e sua fanulia 
criarem um futuro melhor. 




Ve/fl o que wci faz com o CP 200: 

• Aprendizado em Iinguagem Basic 

• Divertidos jogos e passalempos eletronicos 

• Orcamento domestico 

• Controle de conta bancdria 

• Aulas de matemdtica e ftsica 

• Crdficos e cakulos cienlifkos 
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EDITORIAL 



Ilnformdtica 84, de 5 a II de novembro, no Riocentro, sera nao apenas a 
maior mostra de equipamentos da America Latina mas tambem o espaco de 
uma grande festa: a festa da indtistria national do setor, que no ultimo dia 
3 de outubro viu recompensado sen esforco atraves da aprovacao de projeto 
que institucionaliza a Politico National de Informal ica, na forma de 
substitutive elaborado pela Comissao Misla do Congresso. 
A Proldgica Microcomputadores, que ha exatamente urn ano se lancava 
Ttuma campanha em defesa do mercado inierno de informdtica, sente-se 
grafiftcada corn aprovacao do substitutivo da Comissao Mista, que estabelece o 
prazo de oito anos de reserva do mercado de informdtica as empresas brasileiras 
e cria o CONIN — Conseiho National de Informdtica e Automacdo, ligado a 
Presidencia da Repiiblica. 

Outra boa noti'tia a nossos leitores e usudrios: a Proldgica acaba de lancar o 
protocolo de cotnunicacoes RTTY, que gerentia a tigacdo dos micros CP 300 e 
CP 500 ao Servico Publico Ciranddo, da Embratel, Informacoes gerais, 
intercambio de programas e dados especificos da area de informdtica sdo 
algumas das vaniagens que a Proldgica coloca a disposicdo de seus usudrios 
atraves do Ciranddo, ao qual dedicamos a materia de capa desta edicdo de 
Geracdo Proldgica 



Ainda neste nono mimero de GP (pdgs. 7, 8) estamos publicando para o CP 
400 Color o j ogo At ague, escrito e selecionado pelo nosso departamento de 



software CP. i £ nas pdginas 21 e 22, nossos leitores encontrardo a descricao de 
um circuit o, desenvolvido especialmente para Geracdo Proldgica por Alexandre 
Faragd, que permit e a utilizacdo do CP 500 na comutacao de aparelbos 
eletricos. 

A todos, uma boa leiiura. 




Carlos Roberto A, Gauch 
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a Contas a pagar e a receber 

| Fiquei muilo conieme com o programa Contas a Pa- 

I I gar l 1 a Receber, publicado na GP n? 6. No entanto, 

gostaria dc fazer algumas observacocs a respeito do mes- 
mo, pois nao consegui roda-lo no men CP 500, versao cas- 
sctc, sem impressora, 

Na linha 290, a primeira instrueao PRINT esta com o 
sinal do modifieador invertido. A linha 650 parece-me in- 
completa, impossibilitando a "consulta por nome" se o re- 
ferido nome estivcr cadastrado como "a receber". Se o 
nome estiver cadastrado como "a pagar", a rotina e execu- 
tada normalmente. 

Ao fazer uma consult a por "data" ou por "mes", o meu 
programa esta parando na linha 1040. Nao consegui enten- 
der o fluxo, pois uma vez que se responda "N" a pergunta 
"deseja imprimir dados?" (linha 830) o programa deveria 
pnlar as linhas 1020, 1030 e 1040, visto que sao instrucoes 
para impressora. Ja fiz uma conferencia rigorosa nas linhas 
830 a 1080, nao encontrando nenhum erro na minha digi- 
tacao. E importante observar que: se for retirada a linha 
1040 (mesmo sem rctirar as linhas 1020 c 1030), a rotina 
e executada perfeitamente, tanto para 
a "consulta por data" como para a 
"consulta por mes". Minha ultima dii- 
vidaeaseguinte: qual amilidadeda 
linha 70?' 

Aduulo Di'lmini tla Silvu/Brusi'lia-DF 

Prezctdo Adauto, na linha 290 do 
programa Comas a Pagar e a Receber 
houve, de nossa parte, urn erro de di- 
git acaO: substitua o sinal " " por uma 
arroba "@". Na linha 650 nao ha er- 
ro. No inicio da linha 1040, acres ee li- 
te: 1040 IFH = 7 THEN... A linha 
70 e uma linha optional, pois permite 
ao usuurio implementar no lugar do 
cursor tint caractere dij'crente do ort- 
nal. O cursor esta no endereco 16419 
e para modificd-lo voce deverd alterar 
o eddigo ASC 11. Exe/uplo: POKE 
16419,197. Deste modo, o cursor se 
transformard nutria carinha, referen- 
ao eddigo 197. 



CP 300: literatura especializada 

Caro Almir, voce pode 
encontrar a relacao dos apli- 
cativos para a area de enge- 
nharia civil no Enearte Espe- 
cial de Software, que publi- 
camos na GP 8. Com rela- 
cao a os livros volt ados ao 
TRS-80 the indicamos tres ti- 
tulos, todos da Editele Edito- 
ra Tecnica Eletronica: "Ba- 
sic de 8 a 80", vol. I e II; 
"Sugestoes para o Pro gra- 
in ad or Basic" e "Mais Pro- 
gramas para o sett TRS-80". 
Estes livros pod em ser en- 
con trad os em to das as livra- 
rias tecnicas do Pais ou na 
propria Editele, r. Casa do 
A tor, 1060, CEP 04546, Sao 
Paulo, tel.: 531-5468. 



I Sou engenheiro civil e 

1 | usuario de urn CP 300, 

versao casseie. Quando 
comprei o meu micro, espe- 
rava obter maior rendimun- 
to em meu trabalho. No en- 
lanto, estou csbarraudo em 
algnns obstaculos que estao 
me cuslando muilo tempo. 
Em principio, desejaria sa- 
ber quais os softwares dispo- 
niveis no mercado para a 
area de engenharia civil. 
Tambem desejaria adquirir 
literatura especial i /.ad a sobre 
as caracteristicas e possibili- 
dades do meu micro, lingua- 
gem Basic e Linguagem de 
Maquina para o TRS-80.' 
Almir Frizas 
Barra Munsu - RJ 




A CP 200 versus TV a cores 

Sabe-se que a hnagem do CP 200 e em preto e branco. Minha TV (e muitas outras) possui con- 

H™ troles de excitacao verde, vermelha e azul. Crcio que se a forma de onda aplicada na antena 

pelo modular de RF excitar todos os canhoes com a mesma intensidade, produzindo luz (imagem) 

branca, atenuando-se dois canhoes quaisquer a cor sera aquela mais intensamente excitada, ccno? 

Minha dtivida e: como o CP 200 age sobre os canhoes de uma TV colorida?' 

Curios Alexandre da SilVfl - Ri<» de Janeiro - RJ 
Prezado Curios, o CP 200 nao age sobre os canhoes da TV colorida, e/e so excita a imagem PB. 
Is to porque o CP 200 nao possui decodificador de cor para a excitacao dos canhoes. 
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Estes livros nao 
podem faltar na sua 

informateca r-T 
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BASIC PARA CRIANCAS DOS 8 AOS BO 
Volumes 1 e 2 — Michael Zablnski — 
DoIb divertidoa livros para os jovens 
que que rem conhecer a lingua gem BA- 
SIC. Partem das nocfies element a res e, 
a coda novo conhecimento ed qui ride, o 
uluno 6 en co raja do a praticar com exer- 
cicios e pass a tempos int el ig antes. 

aplicaqoes PARA O SEU TRS-80 — 
QUASE TUDO EM BASIC Volumes 1 e 2 
— Howard flerenbon — Ao todo. 61 
apllcacfles difercntes para a seu com- 
putador. Tudn muito bem explicado, pa- 
ra que voce possa compreende-los e ate 
mesmo nltorn-los. Os programas bbISo 
eacrlloa em BASIC Nivoifl I e II, para o 
TRS-80 ou compativeis {Prolfigica, Dla- 
mac. Digitus, Sysdala etc.] 



SUGESTOES PARA O PROGRAMADOR 
BASIC — Earl ft Savage — livro da 
consulta com lodes equelas tocnicas e 
"dices" que os program edores expe- 
rienles tanto escondem. 

CURSO DE PROGRAMACAO BASIC E 
OPERACAO CP 200 — Gradualmente, 
este livro desvenda os segrodos da pro- 
gramacao BASIC, com explicates de- 
talhadas e dezenas da exerdcios. 

CP 300 OPER Ag AO E PROGRAMACAO 

— Descricao objetiva daa carecteriBll- 
ces do CP 300. Ideel pera aqueles que 
querem conhecer os recursos desse mi- 



CP 500 MICROCOMPUTADOR E LIN- 
GUAGEM BASIC — Inclul as especifi- 
cacoes e o use do sub-rot bias em lingua- 
gem de maqulna. 

DOS 500 SISTEMA DE OPERACAO EM 
DISCO — Objetivi) e ilualrado por va- 

rios exemplos, este livro aborda todas 
as caracteristicas do sistema operacio- 
nal em disco do CP 300. 

CP/M BASICO — MurtJirj & WWte — 
Aborda em detalhea o que 6 um Sistema 
Opere clonal, come funciona o CP/M. co- 
mo utiliza-lo e lirur o rmiximo proveito 
doa varies recursos de que ele dispde. 



ADQUIRA-OS SEGUINDO AS INSTRUQQES ABAIXO: 



ASSINALAR: 

I 1 BASIC PARA CRIANCAS - Vol. 1 CrJ 16 000 

BASIC PARA CRIANCAS - Vol, 2 CrS 21.000 

APLICACOESP/OSEUTRSBO - Vol. 1 CrS 13.500 

APLICACOESP/OSEUTRS8Q- Vol.2.,. CrS 18.000 

SUGESTOES P/O PROGRAMADOR BASIC CrS 12.500 

ZD CP/M BASICO CrS 16.000 

MANUAL DO CP 200 CrJ 12.500 

~H MANUAL DO CP 300 CrS 12.500 

I I MANUAL DO CP 500 CrS 14.500 

| MANUAC DO DOS 500 CrS 12.500 

ATENCAO: PRECOS VALIDOS FOR 
TEMPO LIMIT ADO 



Em anexo estou remetendo a 


importancia d 

c/ Banco 

(enviar 

assinalados ao 


e CrS 






em Cheque N? 

Vale Postal N? 

para pagamento do/s livro/s 

remetido/s polo correio. 


a Agencia 
lado. que 


ou 

Centra! SPI 
me sera/ao 


Cheque ou Vale Postal, pagavei em Slo Pai 
EDITELE Editora Tecnica Eletronica Llda. 
Caixa Postal 30.141 — 01000 - Sao Paulo 


lo, a favo 
- SP 


de: 




Nome. 


Endereco 


Bairrq 




CEP 

Estado_ 




Cidade 







ISe rvao quiser destacar esia folria pode enviar xerox com os dados compleiosl 




Modelo: CP 200 16 Kb RAM 



_\ 




Neste jogo voce terd conno adversdrio seu micro, 
campedo invicro de 21, por isso vence-lo nao 
sera nada fdcil. Iniciando a jogatina, exist irao 
21 palitos disponi'veis e, a cada jogada, voce poderd 
alterar seu numero em ate tres palitos, sendo isto 
vdlido tambem para a computador. Como no rnaioria 
dos jogos desenvolvidos pela Prologica, no 21 fodas 
as instrucoes e comandos necessdrios serao dispostos 
no vfdeo. 




I 




*** »■»***##»■«-*»****.».( 

'* F0B0 DOB PRLITOS 

3 '* PROL03ICH 

4 ' * CP-200 



5 **»#»»#*+#»##Hnn H nnnnn ( . 1H n < , ##Ht 

$-6 .PRND. J C.LS 
7 LET R=21 

S PRINT HT 2,5!"0 JOGO DOS 21 PRL I 
TOS " 

9 PRINT RT 6, 5 i "RETIRE 1,2 GU 3 PR 
LI TOS 

10 PPUJT AT 7,5:"PEP.DE O JOGO RGUE 
LE CUE" 

11 PRINT RT B,5j"R£TIRHR ULTIMO 
PRLITO" 

12 PRINT RT 15,5;"IHGITE ENTER" 

13 INPUT P* 

14 CLS 

13 FDR B=l TO 4 

16 FOR C=l TO R 

17 IF B=l THEN PRINT "H" : 
13 IF B>1 THEN PRINT "B" ; 

19 NEXTC 

20 PRINT 

21 NEXTB 

-'INT 
PR n IT TAB 1 3 1 ; R ; "PRLITO (S) " 
2** IF H=l THEN GOTO 42 
25 PRINT I ME. (3) ;"QURNTOS VOCE TIF 







26 INPUT X 
VJ PRINT TRB (3) : X 
22 IF X=R THEN GOTO 
IF X<1 OR X>3 OR 



29 
26 

30 LET R=R-X 

31 TF R=l THEN GOTO 44 

32 LET Y =R-4*INT <R/4> 



42 

X>R THEN GOTO 



IF Y = 1 THEN LET M=1+INT <3*R! 



L,t, 



33 
N) 

34 IF Y O J, THEM LET M=Y+3-4 
<Yt-3>/4) 

35 LET H=R-M 

36 IF R(=0 THEN GOTO 

37 CLS 

33 PRINT TAB <3>:"V0CE TIROU 

39 PRINT TRB (3K"EU TIPEI 

40 PRINT 

41 GOTO IS MMHm 

42 PRINT TRB (3):"EU VENCI" 

43 GOTO 45 

44 PRINT TRB (3) 5 "VOCE VENCEU 

45 PRINT 

46 PRINT TAB 

47 PRINT TRB 
43 INPUT P* 

49 CLS 

50 RUN 
|51 ^RVE "PRLITOS 

52 CL 1 , 
,53 PUN 



*JINT 



: ■ 
;t1 



(3) 
t4) : 



"PRPR NOVO JOGO" 
"DIGITE ENTER" 
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OCP 400 Color possui vdrios pacotes de software, entre aplicativos e 
jogos. Mensalmente estaremos veiculando programas que permitirdo 
explorer todas as potencialidades deste micro. No jogo que publica- 
mos abaixo, voce lutard com uma frota de naves inimigas ate destrui'-las — 
o que dependent de sua agilidade e capacidade de controlar o joystick, 

O jogo e composto por oito setores diferentes e em cada um detes voce 
deverd encontrar defesas e obstdculos especificos, que precisardo ser ultro- 
passados. Para continuar a jogar, voce ainda terd de atravessar as passa- 
gens que separam um setor do outro: tuneis e por- 
tas laser que abrem e fecham e deverdo ser trans- 
postas com todo o cuidado, pois qualquer choque 
o destruird. Alem disso, em cada setor voce enfren- 
tard as naves inimigas e seus poderosos misseis. 
O controle do joystick e muito importante. Com 
o direito, voce controlard sua nave podendo 
transportd-la para cima, para baixo e para a f rente, 
com velocidade variada, sem poder jamais voltar 
atrds. Para atirar, aperte o botao de disparo e em- 
purre o joystick na direcdo de seu alvo e lembre-se: 
ndo deixe nunca os pontos brancos colidirem com sua 
nave: eles sdo mortais. Que a Forca esteja com voce! 




10 iKiiMiitiiiiiiuinmii" 

20 '■ HTSQUi: « 

38 '■ fRQLOQICO ■ 

40 '■ CP-400 » 

58 ■ * i * . ■ j * * ■. > t < . t * » > * i » i t * i > . . 

70 G"8:PRINT94M, ,l nTfiqUE"iPRIHTauS3,' , f-RESSIONE QU01.QUER TECLH" iFORT^P TO U STEP! : PRINTaU0+T*32 .STR ING* (32 , 1 H3+14HQ ) : :G=G + 1 :NEXT 
00 IF INKEY*-""THENIFP-0THENP-7iU-0:I--l:GGTO7BELS£P=i0:U=7:I = l;GOTO78 
98 CLEflR35tOIMS(l. 1 ) . C ( 1 , 1 > ,EN ( 1 , 1 ) 

100 PHODEM,li6CREENl,liPCLS:f'HODC3.1:X-iB:V-Eii![1*-"TlSeOlV31CDCGflEilJ£SCU20ClllSDW10DUSEyiE":SC-l:Nrt"J:ES"2 
lie GET<0.B>-(i ,1).C,G 

120 CIRCLE(2B,2a>,5,7.1,.2S..73lORaU l, BM28.17C7R2.BlR2ElR2DlNR2OlL2DlL2[HL2"!pqiNT<20.: , ,0),B.7:CiETU5. 1 5 >-< 28. 25) . S . G 
130 HN»0lPHODE4, 1 ! PCLS:PHODE3 . I :QN SC GOTP1050. 1B7B, 1 090 . 1 1 10 , 1070. 1 14B • 1 130 . 1 1 60. 1B38 

140 LINE [ 108, 0) -{280,1 2 >, PRESET, &:PniMT< 182,2). 5, 5: LINE 198.13) -<15B. 13) ■ PSET J IFNrl- 1 "0THEN1 48ELSENN=MM- 1 : IFNN>3THENNN=3 
150 FORT-1TOHN!PUT(80+T«J3.1 ) -< 101+T« 13. 1 1 ) ,S. PSET: HEX f 
160 HH-liV»XiM-Y:G0T042B 

178 HM-aiFQRT-lT03iIFZ(T)-8TMENPUT(Pl(T),F'2(T))-(Pl(T)*-lB,P2(T)»lB),EN.PSET;P3(T)»pr(T)lP 1 *tT)-P2(T)!NEXTELSENEXI 
180 X-X*S:H-JDYSTK(0) IF)-J0YSTI!(1 ) lIF«>l|5THENX'X + aELSEIFn<15THENX-X-2 
190 IFB>43THENY-Y*4ELSEIFE<15THENY..Y-M 
200 DN SC GOTO480. 520. 648.6^8,533.758, 730. d P 
218 IFY<2ORX>242DRY>100THENSOSC+1:GQTO13B 

22B PUT(U.U>-<U-M3.U-Ma>.C.PSET:PUT(X.Y>-(X*13.Y*10> ,S, PSET : V-X : U=T : D "PEEK f 65208 ) I tFD-126ORO-2S4THEN250 
- 23B IFPP0INT(X,Y-l>:>50RPP0INT<>f+lU.Y*l >>SORPPDINT ( X-HU . Y*9] >3QRPP0INT( X , Y- 1 1 ! -GTHENntlB 
2MB QOTO180 

250 CnL0R6tIF&<13aRB>43THEN3BB 
268 T-8:G0T0388 

270 IFT"aTHEN2e8ELSE2(T)-liDE^Pl(T)»S:GQT0298 
2S0 IFH>H5THENDE-2SSELSEDE-B 

Z9B LINE (X+6.Y*5>-<D£.Y»S),P9ET:S0UND253,1:LINE-(X*6.Y»5>. PRESET : IFZ (T>- tTHEK3A0ELSE230 
3B8 IFNN-8RNOSOBRNPB>45flNDX«6'->t95HNDX*6-<215THEN370 

SIB FORT-iTDSiIFZ(Tl-aRH0Xt6-lPl(T)0N0X»6-<Pl (T ) +IBTHEN32BELSENEXT: G0TD338 
328 lF<B.>4SnNDP2(T)>Y>OR<B<t5HNOP2(T)<Y)THEM350ELseNEXT:GOTO338 
330 IFB<15THENDE-t0EL5EGE-191 

348 LINErX*4.Y*3)-(X.6.aE).PSET:SOUND253. I =LlNE-<X*4.Y+5). PRESET: IFZ(T|-1THFN3A0£L5E23B 
3SB Z(Tl-ljBE-P2!T>*3iG0T034B 
360 SS-SS»SC»ES:PUT(PKT),P2(T) J-<Pl(T)*ll.P2(T)*ll),EN.PSETtPQi;EA5l|94,0:PLBYH»;POKEA5493,0lPUT(Pl<T),P2(T))-(Pl(T) + ll.P2(T)tl) T C.PS 

ETtBOTONZB 

370 HN-1 ;LINE<X»6.Y)-<Xf6.90) .PSET : SOUND 253. 1 :L INF-Ot^d. Y) .PRESET : SS=SS*SBs FORT- 195T02B5t PUT ( T . SB )-(T + 10. 98) . C. PSET I NEXT [FDRT-30TO70 
iLINE<213,T)-(235.T) , PRESET i NEXT: I FES^ 2THENNC-N«*1 : G0T01 4QEtSE!B0 
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3B0 FORP«T+lTO5:IFZ<P>=0RNDr+5=>P2<P>RNDY+S.-;P3<P) + SBTHEN3?SEL5ENEXT:GOTO270 
390 IFJK15THEN418 

MBB PI <0)«355:IF PI < p KP1 < T) RND PKF)>X THENT=PiNEXTP;GCT037<M:LSEN£XTP: GOTOE70 
410 P1(0)=0:IF P1(P)>PHT) RNO P1(P)<X THENT =P:NFXTP: G0T0E7BELSENEXTF :O0T0378 
4EB RESTORE :COL0R7:D=l SB :U=SS : l'INT < U/1BB8 ) : U=U- I * 1830: GCSU&44S 
t3B REST0RE:D=1A8: I=INT(U/180) : U-U-l »i SB :GDSUF:440 
448 R£STORE:O=170iI.>INT(U/i0) ;U-U-I« l0:GOSUe460 
45B RESTDRE:BM8B: I=U: GOSUEU4B : IFHH=lTHFN170El.SE23B 

468 FCRT.= 0TOI : RERDL* :NEXT:FUT(D,l)-<D + e.ll>,C, PSET :0RRU"E<M ,, + 5TR*(D)+ , ',1"+L*: RETURN 

H7B DRTRR6D10L6UI0.ElR4DlB.R4D5L4D5R4,R4D5NL4DSLA,D5R6U5DlB.NRAD5RAD5L4,NR4DSR4D5L4U5,N[>2R4n5L2:)5,R4D5L4U'5D10R4U5,DSR4LI5NL4D10 
488 FORT=1T03-.1FZ<T)»1 THENNEXT :GDTO510ELSEIF X>P1(T) THENP1 < T > =P1 (T ) +£S ELSE PI (T >=P1(T )-ES 
M98 IF Y>P2(T) HMO P2<T)+ES<1S0 THEN P2( T >=PZ< T) +ES ELSE P2( T) =P2< T ) -ES 

508 PUT(P3(T),P4(T))-(P3(T)+1B,P4(T)+18).C.PSET:PUT<P1<T>,P3<T))-(P1(T)+1B,P2(T)+1B) .EN.PSE! : P3 ( T >=PKT) : P4 (T )-P2 (T ) :NEXT 
518 G=5:GOT0538 
520 G=l 

530 FORT=G TDS: IFZ ( T )- 1RNDM1 ( T ) ^BTHENNEXT: BOT021 0ELSEI FMUT ) >8THENA1 BELSEIFZ< T »■ 1THENNEXT : G0T021SFLSEIFRND(3)=1 THENNEXT : GQT031BELSED 
liB:D£=8;Ml ( T ) -PI (T) +5;M2 (T ) =P2(T ) +5 

548 IFY'P2(T>THEN59BELSEfifl=<X-Pl<T))/<Y-P2<T>>:IFReS<flPI)=';.STHEN57eELSElFfl65<Rfl)=>2.STHENS90 
558 IF X<P1(T) THENDl=-ES-2 ELSE01=ES+2 

548 IF V<P2tT) THEND2=-E5-E:G0T06B8ELSED2^E5+2:G0T048a 
57B IF Y<P3<T) THEN D3=-ES-2 ELSED3=ES+2 
SBS G0TQ48B 

590 IF X<PUT> THEN Dl=-£5-2 ELSEDl=E5+2 

400 Ml <T)=M1 (T)+D1:H2<T>--=M2(T>+D2:D1 (T ) =D1 : D2( T) =D2 :NEXTT: GOT021 B 

618 Ml (T)-Ml <Tl01 IT) :M2{T)=M2(T) +02(1) : IFH2< T ) <8nRHl (T)<0 THENM1 < T ) -B : PRESET (H3 < T ) . HH ( T ) > : NEXT :GQTOE 18ELSEIFPP0I NT (HI ( T ) , M2CT) )>5 TH 
ENiS3BELSEPRESET(«(TJ.MU(T)J:PSy (Ml. <JJ.. H2( T) , 4 > :M3 < T > =M1 ( T > tM4< T )*M2< T > : NEXT: G0T021B 
42B H3<T)-M1 (T);M4 (T ) =M2< T > :NEXT : G0T021B 

438 IFrtl(T)=>X-2 RND M1(T>-<X+15 FIND ME ( T ) =>Y-2 flNO M2(T)=<Y+13 THENPRESET (M3< T ), MH (T )): GOTOaMBELSEMI <T )=0: PRESET (M3(T ), M4(T )) :NEXT : 
BOTO210 

440 FGRT=1TD5:IFZ(T>-1THENKEXT:G0TQ318ELSEIFX<PI<T)THENP1(T) 1 =F , 1(T)-ES ELSE PI < T )=P1(T ) +ES 
658 IFY>P3(T)THENP3(T)=P3<T)+ES ELBE P2 ( T)=P2 [Tl -ES 

448 PUT(P3(T),P4(T>)-(P3(TJ+lBrPHtT)+lB),C,PSET:PUT(Pl(T>.P£(T>)-(Pl(T)+lB.P2(T)+10),EN,FSET:P3[T)=Pl(T>:P4(T)*P2(Tj:IFRND(12-ES)*lT 
HENCIRCLE<P1<T)+13,P2<T)+5>.5,?:PAINT<P1<T)+15,P2<TM5>.7.7 
678 NEXT:G0T021B 

48 B CaLaftB:FORT«lTOS:IFZ(T)=lTHENNEXT:GOTO210ELSEIFY>P2(T)HNDPPOINT(Pl<T)+5.P2<T)+ll ) =5THENP2 (T)»F2(T ) +ES ELSE IF PPG I NT (PI <T)+18,P2(T 
)-l>=5THENP2(T>=P3<T>-ES 
*490 PUT(P3(T) .P4[T))-(P3<T)+10,P4<T)+10) ,C,PSET:PUT(P1(T),P2(T>>-<P1(T)+1B.P2(T>+18) , EN. PS£T;P3( T >*P1 (T > :P4(T ) =P2 1 T ) 
7BB IFR(T)>0THEN72BELSEIF F2< T)+5=>Y-15 RND P2(T) +3-<Y+25 THENR( T j =1 : NEXT :GaTD210 
718 NEXT:GDT021B 

728 R<T>=R<T)+liIFR<T>>HTHEN738ELSELlNE<Fl<T>,PZ(T)+5)-<Pl<T)+7.P2(T>+5).PSET=NEXT:GQTO310 

73B H1=P3<T)+5:FQRP=P1<T> TO 9 STFP-6: IFPPOINT f P , Ml ) >5 THEN7MBELSELINE (P . Ml J - (P + 4 .Ml ) , PRESET :LIN£(P. Ml >-<P-5 .Ml > . PSET: NEXT :LINE(P. hi 
)-(P+4.Hl) . PRESET :R(T>-B:NEXT;GQT02IB 

740 IF P>»X HNO P=<X+1M RND MJ«>Y RNO H1=<Y+1B THEN6l(BELSELIN£<P.Ml)-(P + 4.Ml>.PRESET:R<T)=B;NE:<TT:G0TO2ia 

750 CDLORCC:R=R+RT;IFR=<0ORR=>-30THENRT=-RT:GOTG760EL5EFaRT=lTO3:LINE<Pl tT> .P2< T) -R) -< PI < T ) +30 , P2 <T ) -R+DD > . PSET . B :NEXT; GGTD21B 
740 [FR-<BTHENCC-iEL£ECC-S 

770 GGTD21B 

788 R=R + RT;IFR=<BGRR=.>3BTHENRT*-RT:GDTG798ELSEFQRT=lTO3:IFCC=5THENPUT(Pl(T> + R.P2(T))-(Pl(T)+R»-DD,P2(T) + ia).C.PSET:NEXT:G0T0218ELSEPU 
T(P1(T)+R.P2<T))-<P1(T)+R+DD.P2<T)+1B) , C, PRESET :MEXT;GOT02 10 
7¥B IFR-<BTHENEC=4ELSECC=S 
SBB GOT021B 

BIB CGL0RCC:R = R+RT:IFR<BORR>3BTHEN838ELSELINE(Pl(l,P2(l)+R)-(Pl(l}+3B.P2(l]+R+DD),PSET,e:LINEtPl(l>.P2(l)+4B-R)-(Pm)+3B,P3(I)+ilB-R 
-DD) ,PSET.B:G-3:GOTG53B 
B20 RT--RT: IFR-<B THENCC=6ELSECC=5 
B30 G=3iG0TG53B 

BIB POKE45i|94.0:PLHYf)*!pLRYn*:PLRYfit:POt;E6S49S.B:PUT(U.U)-(W+13,UH0) .C.PSET 
85B NM=NH-I:IFNH=-;0THENB48ELSE130 

B60 DRfiU"BM17a,90C5L90DlR9aDlL90DlR9BOlL9BDlR';0DlL9BOlR?BOIL9eDlfi?BI>lL9flLHR4C6U22RlSD5L8CISR4[)5L4DBLS&R39U33R7D23L7EiR17U23R4FlBE10R4a 
23L4U1MG12H12D14L2" 
870 6*-INKEY* 

888 R»=INKEY*:IFfl»=""THEN8B0ELSERUN 

B98 CaLORB:DRRU ,, PHB.14aE3BF10EE5RieF30R10ElBF34R28R40eR50U38H16E58":PRINT(0, 191 ! 
900 X=lB:Y=2B;DRHU"P.M4,14N[)19BR348D140":PflINTt0.B):GOTOm0 
910 LIHE(0. 191 )-(ES5> 191) .PRESET 
9EB G0T0148 

930 Y=4:X»I4:DRRlJ"EMlB.£NR40Cl4BFMBR4BFlBDl|BFlJBRllL|E:U4BL7aHlOUl<BH'-<0L4BHlBU5B" :P0INT(8,B) : PRINT ( 255. B 1 
948 GOTO 148 

958 X=4:Y-17B:CIRCLE(15B,102).105,B. .9 , . 5 . 1 1 LINF (58 . 198 ) -10 , 1S8 > . PSET :L INE ( B . 188 >- [355 . 189 ) . PSET, Bi DRHU"BM(5a . 155R1B0E50O70" :LINE <6B, 
155>-(E1B,175) . PSET: F0RT=2TO3BSTEP4: CIRCLE) 120.90) .T. 7. -S :NEXT: PRINT ( B . 0) :PHINT(B8, 154) 
SAB T=i:GQTOllBB 

97B COLaR8:GR(lU l, BMa.l00UMBEEaR2aFieBE!D58D30L9MU118LESOlB0L70":LINF<25S.2B)-<17B,llB; , PSET:L1NE (2S5, 70) - ( 17B , 1 48) , PSET: PHINT(0. B > :PRI 
NT<2S5,191>:X=A:IFY<180THENY=14B 
?88 GQTO1120 

998 X=2:Y = 36:DRRW ,, E:Ma,E0R20F3eD90E10Riaa":DRHU"BHa.40O110F30R338U190":LINE(14B.130)-(E2B.B),PSET:pniNT(B.B):pniNT(255.191) 
1888 GDTO1H0 

101B X=8:Y=145;DRRU"EiM5,lBlUA0R70ElBRA0E10UeeRllSBD35L5SD6aG3BL60GiaL4eD24L9a":PRINT<0,0):pniNT<E50,lB0):GOTOlM8 

1020 X=4:Y=HB:DRRU ,, BMB.3BR76D7BRiJU78R84D7flRlMeD4aL55U70L4[)78LeAU7BL45 ,, :LlNE(18B, 100) -( E5S .20 ). PSET ;LINE( 18B. 14B) -< ES5. 60 ), PSET :PRINT 
(0,0):FOINT<ES5,1?1>:GOTO14B 

1B3B MH=BiSC=l:SS=5S+2Ba:X°lBiY=2a:ES=ES+2:G0T013a 
• 104B X"A:Y=5B:DRRU"BMB.3BR18BElaR3BF18R5[)40G10LlBD18L2BU10LlBHlBL17A■ , : :PRINT<B,8) .- FORT^BTOIB :CIRC_E < EBS. 98) . T , 7. . AS . . 5. 1 :NEXT :GDT014 

e 

1858 COLOR7:LINE(3B,30)-( 15,30). PSET :l)NE-( S5 , 30) , PSEI : LI NE-( 20 , E0 ) , PSET : PRINT (2B , 24 ) , 6 , 7 :GET < IS , 2B) - (23 . 30) . EN, G : FGRT=1T03 ! PI ( T >=RND 

(E30)+18:P2(T)'.RND<a0)+lB:Z(T)=0:NEXT:Z(4)=l:Z(5)=0:Pl(5>=146:P2(S!=lA8:PRINT<E6,EB),S.S 

1BAB GOTO 0?a 

1078 CIRCLE (20, 20), 5. 7: PRINT < 28,28) , 4. 7: GET ( 15. 15 ) - (35 , 35) , EN,G:POINT (20, 20) ,5 ,S:FORT=lTOS:Z( T )=0:M1 (T ) =8 : NEXT 

1BS8 IFSC=3THENPl<l)=38:P2a)=AA:Pl(2)=lHB:P2c2) = :3BrPl(3)=2BB:P2(3) = !7ft:Pl ( 4) =188 :P2 < 4) =1 74 :P1 (S) =] BM : P2 ( 5) =1M8 :GOT093BELSEP1 ( 1 )=88 

sP3(l )-134:PI(3) = 138:P3(2) = 136:Pl ( 3 )=70: P£< 3 ) - 174 :P1 (M ) = 110: P2(4 )»174: PI < 5 >^ 1B4 :P2 (5 >= IBB : GOT0998 

1B90 C:RCLE(20.2B) ,A. 4: POINT (20, 20) , 6. 6 : CIRCLE (EB , 20 ) .2, 7: GET (14, 15)-(3A,3S) , EN, G :GQTO950 

1108 Z<T)=0:P1(T)-RND(230)+10:P2(T)-RN[)<150):IF PPOI NT (PI ( T I ,P2( T ) »S OR FPOINT < Fl <T ) + 10 , PE (T ) )>5 OR PPG1NTI PI ( T ) + IB ,P2(T ) +1B )>5 BR 

PPOINTIP1 (T) .P2(T)+10)>S THEN118BELSET=T+1 : IFT>5THEN1HBELSE1 IBB 

1118 DFt(lU"BM2a.20CANUMNEMNRi(NF4ND4C7NG4NL4NH4" :GET(15, 15)-(25,2S) . EN . G :GOT0978 

112B FDRT=1TD5 

113B Pl(T)=RND(ieB!+15;P2(T)=RND(191):IFPPGINT(Pl(T).P2(T>):-50RPP0ENT(Pl(T)+lB,P2(T) ) >50RPP0INT (PI < T) , P2{T) +18 ) >5CRPPOINT (PI ( T ) + IB , P 

2(T)+iB)>STHEN1130ELSEZ(T)=8:R(T)=0:Hf.XT:GOTO14B 

1140 FORTelTO5iZ(T)"l:NEXT:Pl(l)^42:P2(l)=15A:Pl(2)=lI4:P2(2)=144:Pl(3)=204:PE(3)=55:Ri=0:RT=ES-l:CC=7:DO=E5/2:GOTQlBia 

1150 FORT-1T05:Z(T)'1:NEXT:PI(1) = 3B:P2(1)=7B:P1(3)=7A;P3(2)--7B:P1<3)=12B:P2(3)---76:R=B:RT-ES:DD=ES:GOT01B2B 

1140 FORT-lTO2:Z(T)=l:NEXT:Z(3)=0:Z(>l)=B:Z(5)=B:Pl(4)=190:P2(M)=Ee:Pl<5>=lB5:FE(5)=7B:Pl(l)=lB8:P2(l)=3B:RT=ES-t :R=B:CC^A:DD=ES/2:P1 

(3)-310iP3(3)=20:DOTO184B 
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BIORRITMO NO CP 200 

Ho dias que noo tern jeito, da tudo errado: o pneu fura em pleno congestionamento, voce 

chega atrasado dquela reuniao e o dolor volta a subir. Para que voce se precavenha 

contra esses dias, o Departannento de Software da Prologica desenvolveu o Biorritmo, urn 

programa que demon stra, at raves de grdficos, as condicoes didrias do seu estado fisico (F), 

emotional (E) e intelectual (I), 




10 '**********#*■»*#■***■»*******■**■» 

20 '* BIORRITMO * 

30 '« PROL0GICR * 

iO '* CP-200 # 

50 '««#*•*»#**♦«•••«»♦«*#»♦»«#*## 

bO PRINT RT 18,0; M BI0RRITM0 G.P." 

70 FOR N=0 TO 63 

30 PLDT N,22+20*5IN !N/32*PI) 

90 NEXT N 

100 PRINT RT 2Q,0;"TECLE "«0»« PRR 

R INICIRR" 

110 INPUT PS 

120 CLS 

130 IF qtO-O" 

140 PRINT "QURL 



THEN GOTO 690 

DIR DO NRSCIMENTO 



150 INPUT Dl 

160 PRINT "QURL MES V' 

170 INPUT Ml 

180 PRINT"QURL RND ?" 

190 INPUT Rl 

200 CLS 

210 PRINT"QURL RND DESEJHDD ?" 

220 INPUT fl.2 

230 PRINT"QURL O MES ?" 

240 INPUT M2 

250 PRINT"QURL O DIR ?" 

260 INPUT D2 



270 LET F=(R1-(M1<3) >-(R2-(M2<3) ) 

230 LET R=[F*365)+F/4 

290 LET M=(306*< [M1+1-IHK3I >-<M24 

1>- <M2<3) ) )/10 

300 LET D=D1-D2 

310 CLS 

320 LET W=RBS (R+M+D) 

330 GOSUB 400 

340 GOSUB 540 

350 GOSUB 460 

360 GOSUB 540 

370 GOSUB 500 

3S0 GOSUB 540 

390 GOTO 590 

400 PRINT RT 6,0;' 

410 PRINT "DIB: "; 



THEN PRINT 



SEU BIORRITMO, " 
D2;" NO MES: ";M 



420 PRINT 

430 PRINT "CICLO FISICO " ; 

440 LET C=(W/23)-(INT (H/233 ) 

450 RETURN 

460 PRINT 

470 PRINT"CICLO EMOCIONRL "; 

4SO LET C=(W/2S)-(INT <W/2S>> 

490 RETURN 

500 PRINT 

510 PRINT"CICLO INTELECTURL " 

520 LET C=(W/33)- ( INT (W/33)) 
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530 RETURN 

540 IF C>.55 RND C<.95 

"EM BRIXR" 

550 IF C<-45 RND O.05 THEN PRINT 

"EM RLTR" 

560 IF C>=.45 RND C<=.55 THEN PRIN 

T'^RITICO" 

570 IF C>=.05 OR C>= . 95 THEN PRINT 

"CRITICO" 

5S0 RETURN 

590 PRINT 

600 R.RINT 

610 PRINT"PROX. DIR DIGITE ""P""" 

620 PRINT "OUTRfl DRTR DIGITE ""D ' 

630 INPUT P* 

640 CLS 

650 IF P*= 

2=D2+1 

660 IF PS= 

670 IF P*= 

6S0 RUN 

690 PRINT RT 10,15|* I EU DISSE ""Q" 



"P" RND D2<31 THEN LET D 



THEN GOTO 300 
THEN GOTO 210 



700 PAUSE 300 

710 CLS 

720 RUN 

730 SRvE"BIORRIT" 

740 RUN 



NO AR: 



CIRANDAO 



MARTA REGINA DE SOUZA 




f ^^P^^^ servico Cirandao, da Em- 

^f ^» bratel, e uma grande oportu- 

| ( ■ nidade para o desenvolvi- 

K M mentodeuma culture telein- 

^^^^^^F formatizada dcntro da socie- 

^^^^ dadc e para o proprio cresci- 

mcnto da industria nacional de informa- 

lica.' Esta e a opiniao do Fabio Men- 

diretor dc Marketing de Computadores 

Pessoais da Prologica, sobre o primei- 

ro Banco de Dados publico instalado no 

Pais: Cirandao. 

"Acorn pan hando a grand e expansao 
que alravessa a telematica no catnpo de 
telcproeessamento", salicnta Mendia, 
"a Prologica desenvolvcu o proiocolo 
de coniunicacao RTTY para acessar di- 
versos servicos dc informacao, atenden- 
do assim uma demanda crescente de urn 
sistema inicgrado com uma gama de 
possibilidades que perniita uma coniu- 
nicacao completa e sat is fat ori a a todos 
os tipos de usuarios, principaltnente 
porque os cquipamentos da empresa tcm 
a vantagem de ser inteligentes". 

A principio podendo parecer um ser- 
vico que exija grandes investimenios, 
portanto, accssfvel a poucos, o Ciran- 
dao e na realidade um sistema que pode 
ser acionado at raves de um computador 
pessoal, terminal de video ou ainda at ra- 
ves de um simplex telex — este ultimo 
so a partir de dezembro. No caso de 
usuarios com computadores pessoais, 
estes ja deverao estar equipados com in- 
terfaces de coniunicacao RS 232C, mo- 
dens compativeis, alem do software 
emulador (protocolo de coniunicacao) 
desenvolvido pelos fabricantes. 

Segundo o engf George Zelenjuk, da 
Embratel, este servico publico de tele- 
matica complement a e Integra outros 
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servicos de telecomunicacoes ja instala- 
dos no territorio nacional. "Para 1986", 
afirrna Zelenjuk, "preve-se a possibilida- 
do Cirandao suporiar um servico gate- 
way, on seja: um sistema que ligara o 
usuario diretamente a diversos bancos 
de dados nacionais ou internacionais". 

Possibilidades do Cirandao 

George Zelenjuk estima tambem que, 
para o bienio 86/87, este servico estara 
integrando mais de 100 mil assinantes e 
admite nao estar sendo otimista, como 
pode parecer a primeira vista: com me- 
nos de dois meses de funcionamento, 
o Cirandao ja conquistou mais de 500 
usuarios. O interesse pelo Cirandao de- 
ve-se a possibilidade de acesso as mais 
variadas informacoes, que cobrem areas 
diversas, desde a medicina, estatisticae 
eeonomia ate arte e geografia, entre 
outras, 

A configuracao da rede de informa- 
coes do servico Cirandao e basieamen- 
te a seguinte: o sistema central do Banco 
de Dados e gerenciado pela Embratel 
para armazenamento de informagoes e 
programas, os quais serao fornecidos 
aos usuarios, via terminals ou compu- 
tadores pessoais. Interligando o sistema 
central do BD e os usuarios esta a rede 
de telecomunicagoes que, em sua confi- 
guracao definitiva, sera formada pela 
Rede Nacional de Comutacao de Paco- 
tes (Renpac), complementada pelas re- 
des publicas de telcfonia e Rede Nacio- 
nal dc Telex (RNTX). 

Por ora, para sua implcmentacao ini- 
cial, o Cirandao sera accssado exclusi- 
vamentc via rede telefonica em seis cida- 
des: Sao Paulo, Rio de Janeiro, Brasi- 
lia, Belo Horizonte, Curitiba e Porto 




Alegre. Os usuarios de outras localida- 
des tambem podem acessar o Cirandao, 
porcm terao que arcar com as despesas 
das chamadas telefonicas interurbanas. 

Fornecimento de Servicos 

Totalmente interativo, o Cirandao 
oferece aos usuarios todas as rotinas pa- 
ra sua operacao, passo a passo, efetivan- 
do uma interface homem/maquina. Ba- 
sicamente, o sistema fornece os scguin- 
tes servicos: Banco de Informacoes, 
Banco de Programas, Servicos de Co- 
municacoes, Armazenamento de Arqui- 
vos de Usuarios e Servicos de Suporte 
aos Usuarios, alem de facilidades de co- 
municacao para comunidades teleinfor- 
matizadas privadas. 

De acordo com Zelenjuk, com o tem- 
po outros servicos serao criados, a par- 
tir das necessidades detectadas pela pr6- 
pria comunidade. 

Informacoes e Programas 

O Cirandao possui um Banco de In- 
formacoes onde estao disponiveis varias 
Bases de Dados, voltadas para os mais 
diversos setores da comunidade usuaria, 
possibilitando uma navegacao integra- 
da ao sistema, pois permite aos usuarios 
a obtencao de informacoes complemen- 
tares de divcrsas fontes, sem o inconve- 
nicntc de mudar de banco de dados. 

Ja o Banco de Programas e um ser- 
vico nacional de transferencia on-line de 
software aos usuarios, basicamentc den- 
tro das seguintes areas: administracao 
empresarial, administracao profissional, 
administracao domestica, ciencia e tec- 
nologia, educacao, lazer (jogos) etc. 

Os programas, via Cirandao, tcrao os 
mcsmos requisitos de seguranca de que 



dispdem os programas dos fabricantes e 
software-houses. No entanto, para pre- 
vencao de eventuais erros na transmis- 
sao, esta disponivel um protocolo de 
comunicacoes, especifico para o Banco 
de Programas, que faz o controle de 
erros. 

Com todos estes dispositivos, o Ci- 
randao, atraves de seus servicos de co- 
municacdes e de suas potencialidades 
como instrumento de marketing, consis- 
te em uma nova midia para a area de 
software. 

Servicos de Comunicacoes 

Os servicos de comunicacoes do Ci- 
randao tern as seguintes opcoes: Servi- 
co de Mensagem, Quadros de Aviso, 
Mercado Eletronico,' Teleconferencia, 
sendo que as duas ultimas ainda estao 
em fase de estudo, nao-disponiveis aos 
usuarios. 

O Servico de Mensagens consiste na 
comunicacao pessoal entre os usuarios, 
num intercambio de mensagens, que sao 
armazenadas nas suas Caixas Postais. 
Estas caixas sao distribuidas no ato da 
inscricao no Cirandao: cada usuario re- 
cebe uma, com o respectivo endereco, 
tendo cada caixa postal a capacidade 
maxima de 198 mensagens e tamanho 
individual de 6Kb. O sigilo dos recados 
e absoluto, pois uma vez enviados a um 
usuario, so este podera acessa-los, sen- 
do que nem mesmo o rcmetente podera 
modifica-los ou reve-los. O Servico de 
Mensagens pode ofereccr ainda as se- 
guintes facilidades: Grupo Fechado de 
Usuarios, Caixas Postais Subsidiarias, 
Secretaria Eletronica, Arquivo de Tex- 
tos Padrao e Mensagens em Elaboracao, 
Multienderecamento c Enderecamento 
em Grupo. 
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Ja disponivel aos usuarios, o Servi- 
co Quadro de Avisos permite a comu- 
nicacao simultanea de uma pessoa com 
varias outras ou vice-versa. E para au- 
xiliar e prestar assistencia aos usuarios, 
facilitando seu relacionamento com o 
sistema, foi criado o Sistema de Su- 
porte. 

O Cirandao pretende tambem ofere- 
cer facilidades para as comunidades fe- 
chadas, sem ferir a filosofia de atendi- 
mento comunitario, independentemen- 
te de segmentacoes e localizacoes. Estas 
comunidades fechadas (empresariais, de 
classe, clubes ou associacoes) poderao, 
desta forma, transmitir e receber infor- 
macoes de seu interesse exclusivo, sem 
que fiquem impossibilitadas de acesso 
aos demais servicos piiblicos do Ciran- 
dao. 

Acessando o Cirandao 

Para acessar e participar do Ciran- 
dao, basta um telefone, um terminal 
TTY ou computador pessoal, um mo- 
dem com velocidade de 300 bps ou 
1220/75 bps, interface RS 232C e um 
emulador especifico para cada equipa- 
mento, que transforma o computador 
num terminal. De resto, e so solicitar o 
servico a Embratel. 

A tarifacao elaborada pela Embratel 
preve uma fase de pre-comercializacao, 
com validade ate 30 de outubro deste 
ano. Assim, o usuario podera fazer uma 
assinatura mensal que inclui uma fran- 
quia de 120 minutos e 250 mil bytes — 
a cada mil bytes pode-se escrever um 
texto de aproximadamente 200 linhas 
com 50 toques. Se a assinatura for resi- 
dencial seu preco e de Cr$ 2 mil 544 e 
comercial CrS 12 mil 720. 

Excedida a franquia, cada bloco de 
1000 bytes custa Cr$ 6 e Cr$ 24 por 
minuto. Caixas Postais e Quadros de 
Aviso nao implicarao em custos extras 
quando dentro da franquia, ate o tercei- 
ro dia. Se o assinante nao ler ou retirar 
sua mensagem neste prazo, pagara CrS 
6 por 1000 bytes armazenamento/dia. 

A cada Caixa Postal corresponde 
uma senha, sem a qual o acesso e invia- 
vel. Entretanto, o usuario pode ter, se 
quiser, ate nove senhas subsidiarias a 
CrS 634, residencial e CrS 3 mil 178, co- 
mercial, para cada senha principal. 

Para os provedores de servicos e/ou 
programas, o proccsso de tarifacao exi- 
ge um armazenamento minimo mensal 
de um Megabyte, a CrS 6 por mil bytes 
armazenados/dia. 

A Embratel esta confiante de que, 
impulsionado pela intensa utilizacao de ' 
servicos ligados a telematica, que se ve- 
rifica em todos os segmentos da comu- 
nidade, o Cirandao crescera nao so em 
demanda de participantes como tambem 
de servicos disponiveis. A propria con- 
figuracao definitiva prevista, que passa 
pelo Renpac, deixa evidente a dimensao 
que este servico podera atingir. 



esta quinta licao de 
nosso Curso de 
Basic, Marilena 
Occhini Siviero 
aborda os comandos: 
AUTO e FOR... 
NEXT, atraves de 
exercicios simples 
e praticos. 
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Nas licoes anteriores aprendemos que 
para escrevermos linhas de pfogramas 
podemos usar, por exemplo, o seguinte 
comando: 
READY 

> 10 CLS (ENTER) 
ou seja, digitamos o numero da linha e 
depois a instrucao seguida de ENTER, 
para qualquer linha. Com o comando 
AUTO, o Basic gera o numero de linhas 
sem que precisemos digita-lo. A forma 
generica deste comando pode ser defi- 
nida por: 

AUTO n,k (ENTER) 
onde n e o numero de "linha-inicio" do 
texto e k o incremento deji. Exemplo: 



FOR variavel = n TO k 

procedimenlos 
NEXT variaVel 



onde nek sao expressdes numericas ou 
variaveis numericas. 

Considere a seguinte proporcao, da- 
do o programa: 
5 A=l 

10 PRINT "PASSAGEM" A 
20A = A+1 

30 IF A < 6 THEN GOTO 10 
40 PRINT "ACABOU" 

Se usarmos a instrucao FOR.. .NEXT, 
teremos: 





10 CLS 






EFEIT0 




>AUTO 10,10 -20 PRINT 


"AUTO" 




30 END 




>AUTO 1 


1 CLS 




5 EFEITO 






- 6 PRINT' 


'AUTO" 




11 END 





A partir do ENTER, em cada linha, 
passa-se automaticamente a linha se- 
guinte com o incremento dado. 
FOR.. .NEXT 

O formato geral do comando FOR... 
NEXT pode ser dcfinido da seguinte 
forma: 



( 5 

r° 

W20 



5 FOR A=1 TO 5 
PRINT "PASSAGEM 
NEXT A 



EM" A^ 



30 PRINT "ACABOU' 



Isto significa que as instrucoes entre 
FOR e NEXT serao executadas 5 vezes, 
ou seja: ate que A = 5 a partir de A = 1 . 
Toda vez que passar pelo NEXT A, o 
programa retorna para a linha 5 e se a 
condicao A = 5 nao acontecer, o progra- 
ma soma 1 em A e continua o LOOP. 
Resumindo: a finalidadc desta instrucao 
e permitir que uma s^rie de instrucoes 
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sejaexccutadadeiurode urn LOOP, um 
certd numero de vezes. 

Sendo variavel, o comando e usado 
como contador, ondc n e o valor inicial 
da variavel e k o ultimo valor do conta- 
dor. Analise estc outro exemplo de apli- 
eacao; 
10 CLS 

20 PRINT "ADIV1NHE UM 
NUMERO ENTRE 1/10" 
30 A = RND(10) 
40 FOR 1 = 3 TO STEP -1 
50 PRINT "VOCE AGORA TEM ..."; 
1" " CHANCE(S)" 
60 INPUT "QUAL I: O NUMERO";N 
70 IF N = A THEN GOTO 100 
80 PRINT "VOCE ERROU" 
90 NEXT I 

100 PRINT "GANHOUM!" 
1 10 INPUT "QUER MAIS?(S/N)";R$ 

Perceba que o comador vai do 3 ao 
1 , Isso porque o incremento e negativo. 



FOR ?? AHH\1 

UAM JCHU.T^'FOR J 



STEP especifica o incremento que, se 
omiiido, assume +1. Neste programa 
usamos FOR. ..NEXT para fazer um 
LOOP tres vezes, ja que na linha 50 o 
programa indica o numero de chances 
que o jogador ainda possui, aproveitan- 
do o contador I, no caso regrcssivo. 

O exemplo abaixo indica a utilizacao 
do STEP positivo: 
FOR A = 32 TO 256 STEP 2 
PRINT CHR$(A); 
NEXT A 

Ncste programa, cm cada passagem 
pelo NEXT, a eondicao (32 TO 256) 
e checada, isto e: se A = 256, fim do 
LOOP. Caso contrario, soma 2 em A e 
o LOOP continua. Sendo assim, com es- 
te incremento, o LOOP e executado 112 
vezes. E nao esqueca de um detalhe: na 
primeira execugao do LOOP, o conta- 
dor csta com o contetido igual a expres- 
sao (ou variavel} numcriea a direita do 
sinal de igual. Exemplo: 



1? vez - FOR- A = 32 TO 2 

! 1 


56 STEP 2 


! 2 

1 




i 








112:' 






txercfcos. 



1) Fazer um programa que liste todos 
os numeros pares em re 2 c 100. 

2) Fazer um programa onde o 
operador adivinhc um numero. A 
quantidade de tcntativas deve ser 
fixada' pelo proprio operador. 
(Sugestao: usando FOR... NEXT 
utilize a variavel que contem o 
uiimero de temativas para iimite do 
FOR. ..NEXT.) 

3) Fazer um programa ondc seja 
listada na tela (10 vezes) a 
mensagem: "CP 400 COLOR: O 
NOVO MICRO DA PROLOGICA". 



■<^Mffll-& 
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10 ' ***** ***************»*#****»** 
** 



BRTRLHR NRVRL 



30 



40 ' * 



PROLOGICfl 



CP-300 



CP-500 



50 ' ****************************** 
** 

60 CLS : PR I NT@464 , .CHR$<23). ; " BRTRLHR 

NRVRL"; ~~ 
70 SOSUB 1410 

SO CLS: GOSUB 1670 :GOSUB 1460 
90 £atJ20M,:CLERR(200):DEFINT R-S 
100 DIMKfe ( 17 , 17 ) , KP ( 17 , 17 ) , KC < 17 , 
17) ,LNC11) ,LS<11> ,SN»U1),LC(11) 
110 DIM LE(6,1),LX<6,1>,SC<6,2) ,BL 
S<5> 

120 TC=0-12 

130 CLS:PRINT864*4+10, "CRPITRO, SE 
U NOME, POR FRVOR";: INPUT P* 
140 PRINT: INPUT" QURL SERR' G 
RRU DE DIFICULDRDE DR BRTRLHR (1 R 

3) . ' 

1- FHCIL 

2- MEDIO 

3- DIFICIO "; D 
F 

150 IF DF<1 OR DF>3 THEN 140 

160 IF DF=1 THEN TX=125:SV=3 

170 IF DF=2 THEN TX=50:SV=2 

ISO IF DF=3 THEN TX=25:SV=1 

190 CLS: PRINT :PRINT"CERTO. VOCE PO 

DERR' DISPRRPR SRLVRS DE";SV;"TIRO 

S":PRINT"E VOCE TERR' UM MRXIMO DE 

";TX*TC;"SEGUNDOS PRRR DISPRRR-LOS 

200 PRINT: PRINT "NOSSRS FROTRS TERR 

CRDR UMR :": PRINT 

210 NS=0:FOR 1=1 TO 6:RERD N,K,R«: 

IF DF<2 THEN N=l 

220 PRINT N;RS;TRB<25);"C0MPRIMENT 

DE " ;K;"QURDRRDOS" 

230 FOR J=l TO N 

240 NT=NT+K : NS=NS+1 : LS ( NS ) =K : LC ( NS 

>=K:SNS(NS)=R*:IF N>1 THEN SNS(NS) 

=SN*CNS>+" NO."+STR*(J> 

250 NEXT J, I 

260 DRTR 1,6,P0RTR-RVI0ES,1,5,C0UR 

RCRDO ,2,4, CRUZRDOR ,2,3, DESTROIER , 2 

,2,SUBMRRIN0,3,1,BRRC0 PRTRULHR 

270 FOR 1=1 TO 6:RERD SC(I,0),SC(I 

,1) ,SC(I,2):NEXT I 

280 DRTR 2,1,3,1,1,1,3,2,1,2,2,2,1 

,3,2,3,3,3 

290 FOR 1=0 TO 4:RERD BL$< I) :*NEXT 

I 

300 DRTR", SUB RRTRZRIMR DE PORRO" , 

" , MRLDITO SEJR"," ",", MINHR NOSS 

R"," " 

310 PRINT :GOSUB 1460 



320 GOSUB 910 

330 GOSUB 1400 : INPUT" VOCE QUER SU 

R FROTR DISPOSTH HO RCRSO";R* 

340 I = l:J=l:NG=3:IF LEFT* (P.*, 1 )="N 

" GOSUB 1100 ELSE GOSUB 1590 :FOR 

1=1 TO 15:F0R J=l TO 15:KP(I,J)=KB 

<I,J):NEXT J, I 

350 GOSUB 1400 :PRINT"VOU DISPOR M 

INHR FROTR RGORR": :NG=65: GOSUB 159 



360 FOR 1=1 TO 15:F0R J=l TO 15: KC 

<I,J)=KB(I,J):NEXT J, I 

370 IC=RND(3)-1 

3S0 GOSUB 1400 :PRINT"PRONTO ME 

US NRVIOS ESTRO EM POSICRO !":I7=7 

:J7=7 

390 ON ERROR GOTO 17S0 

400 PRINT" VRMOS SORTERR " ; : IF R 

ND(0)>.5 GOSUB 1410 :GOSUB 1400 sp 
~:INT"EU DISPRRO PRIMEIRO ! " ; :GOTO 5 
30 . 

410 1=17: J=J7:NG=65: GOSUB 1410 :G0 
SUB 1400 :PRINT"SUfl VE2, CRPITRO " 
;PS: 

420 FOR NV=1 TO SV: GOSUB 1410 :60S 
UB 1400 :PRINT"DISPRRE TIRO NO." 
NV ; " " ; : T=0 

430 GOSUB 950 : IJ=KCC I, J) :GOSUB 1 
400 :IF T=TX PRINT"LEVOU MUITO TEM 
PO PRR' DISPRRRR, CRPITRO. PERDEU 
ESTE TIRO !": :GQTO 510 
440 IF 13=99 PRINT"JR' RLVEJOU EST 
E PONTO ANTES, CRPITRO in ::GOTO 43 


450 IF IJ=0 THEN PRINT"TCHUflflflM. . . 
RCEPTOU NR RGUR, CRPITRO !";:LP=-1 
:GOTO 500 

460 PRINT"RCF.RTOU TIRO EM MEU "; 
SNS(IJ) : :HP=HP+1 :BOSUB 3S0 :CH=CH 
+l:LX(Ch,0>=I:LX(CH,l)=J 
470 LP=-1:IF CH>3 THEN PRINT BL*(R 
ND(5)-1);" !" 

480 LC(IJ)=LC(IJ)-l:IF LC(IJ)=0 PR 
INT" ...E QUE RCRBR DE RFUNDRR ! " ; : 
FOR 13=1 TO CH:IX=LX(I3,0):JX=LX(I 
3,1):G0SUB 870 :NEXT I3:CH=0:LP=0 
490 IF HP=>NT GOSUB 1410 :GOSUB 14 
00 :PRINT"GRNHOU ESTR BRTRLHR NRVR 
L, CRPITRO ";P*;" !!!";:GOSUB 1410 

: GOSUB 1410 :GOTO 340 
500 I7=I:J7=J:KC(I,J)=99 
510 NEXT NV 

520 GOSUB 1410 : GOSUB 1400 PRINT- 
S' R MINHR VEZ, RGORR."; 
530 GOSUB 1410 :NG=3:F0R NV=1 TO S 
V: GOSUB 1400 : GOSUB 1410 :IF NH>1 
THEN 780 
540 IF NH=1 THEN 640 



% 






550 I=RND(15) :J=RND(15) 

560 IX=I:JX=J 

570 IF 1)3 THEN 1=1-3: GOTO 570 

530 IF J>3 THEN J=J-3:G0T0 580 

590 FOR K=l TO 6 STEP 2: IF SC(K,IC 

> WD SC(R+1,IC) THEN 610 

600 NEXT K:GOTO 550 

610 I=IX:J=JX: GOSUB 1290 :IF JP=1 

THEN 550 

620 OI=l:OJ=J:LI=I:LJ=J:lF KP<I,J) 

=0 THEN 320 

630 KH=KP<I,J):LK=LS<KH):GOSUB 148 
:GOTO 330 

640 PRINT" DEI XE-ME PENSRR..."; 
•650 NX=RND(4):G0SUB : GOSUB 12 
90 :IF JP=1 THEN 650 
660 DI=RBS ( I-LI ) : DJ=RBS ( J-L J ) : K=0 
670 K=K+1 : IX=OI+K*DI : JX=0 J+K*D J : IF 

IX>15 OR JX>15 THEN 690 
630 KK=KP(IX,JX):GOSUB 1350 :IF JP 
=0 THEN 670 

690 SI=IX-DI:SJ=JX-DJ:K=0 
700 K=K+1 : I X=OI-K*DI : JX=OJ-K*D J : IF 

IX<1 OR JXU THEN 720 
710 KK=KP(IX,JX>:G0SUB 1350 :IF JP 
=0 THEN 700 

720 EI=IX+DI:EJ=JX+DJ:K=0 
730 IF SQR<<SI-E"I>*<SI-EI> + <SJ-EJ> 
*<SJ-EJ)XLK THEN 650 
740 IF KP(I,J>=0 THEN 820 
750 IF LE(1,0)=I THEN SI=I:EI=I:IF 

LE(1,1XJ THEN SJ=LE,(1,1):EJ=J EL 
SE SJ=J:EJ=LE<1,1) 
760 IF l.E(l,l)=J THEN SJ=J:EJ=J:IF 

LE<1,0XI THEN SI=LE( 1 ,0) :EI=I EL 
SE SI=I:EI=LE(1,0) 
770 GOSUB 1480 :LI=I:LJ=J:GOTO 830 

730 IF RND(0)>.5 THEN 800 

790 I=SI-DI:J=SJ-DJ: GOSUB 1290 :IF 

JP=1 THEN SOO ELSE IF KP(I,J)=0 
THEN 800 ELSE, SI=I:SJ=J:GOTO 310 

800 I=EI+DI:J=EJ+DJ: GOSUB 1290 : IF 

JP=1 THEN 790 ELSE IF KP(I,J)=0 
THEN 790 ELSE EI=I:EJ=J: GOTO 310 

810 LI=I:LJ=J: GOSUB 1480 :GOTO 330 

820,PRINT"TCHURRfl... ! ! ! " :KP(I, J)=9 

9: SOSUB 860 

830 GOSUB 1410 :NEXT NV:GOTO 410 

840 GOSUB 1400 : INPUT "QUER ME ENFR 

ENTAR EM OUTRfl BRTRLHR" ;fl* 

350 IF LEFT*(R*,1)="S" THEN CLS: RE 

STORE: RUN 80 ELSE CLS:PRTNT a4Q0 . 

"FUGIU MRS EM BREVE NOS* ENCONTRRRE 

MOS " :Sit£4, "NUMR NOVR BRTRLHR... RH 

! RH! RH! RHHH! " :F0RI=1 TO 1000:NE 

XTI: CLS: STOP 

S60 SET(4*(I-l)+NG,2*<J-l)+2) :RETU 

RN t 

870 RESET<4*<IX-1)+NG,2*(JX-1)+2J : 
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Este jogo e, no mfnimo, emocionante. Nele voce disputara com seu micro uma batalha naval 
no escuro, ou seja: voce nao vera a frora inimiga e tero um tempo limitado para 
cada disparo. Todas as Informacoes necessaries para jogar serdo fornecidas pelo computador. 



S30 FOR IX=-1 TO 2:SET(4*< I-i (+NG+ 

IXi2*(J-l)+2J :SET(4»(I-1)+NG+IX,2» 

<J-l>+3.> --NEXT IX:RETURN 

B2.0 FOP IX=-1 TO 2:RESET(4*a-l>+N 

G+IX.2M J-1J+2J :RESET<4*(I-n+NG+I 

X,2«< 3-11+3^ JNEXT IXSRETURN 

900 LP-ROINT < 4* ( 1-1 ) +NG , 2* ( J-l > +2 ) 

(RETURN 

910 CLSsFOR 1=1 TO 127:SET< I ,0.) :BE 

T<I,32J:NEXT I 

920 FOP J=0 TO 32:SET(1, JJ : SET (64, 

JJ:SET! 127, JJ :NEXT J 

930 PRINTg ?6V , " , ';PS; ,P "!=PRINTag2 

2i" COPPUTRDOR ";:RETURN 

940 LP=POTNT< 4*1+3, 2*J+2> : RETURN 

950 GOSUB 360 : nt>=IN t: ;EV*: T=T+1 SPR 

INT «255,INT(T*TC);:IF T=TX RETURN 

960 IF Bt» M " THEN IX-I :JX=J : GOSUB 

S70 :GOT0 950 

970 NC=HSC(R*):II=I:JJ=J 

930 IF NC=90 JJ=J-l:GOT0 1G40 

990 IF NC=3S JJ=J+l:G0T0 1040 

1000 IF NC=46 11=1+1 : GOTO 1050 

1010 IF NC=44 11=1-1 : GOTO 1040 

1020 IF NC=13 KS=l: RETURN 

1030 GOTO IOS0 

1040 IF JJU OP JJH5 THEN 10SO 

1050 IF 11(1 OR II>15 THEN 10SO 

1060 IF UP=0 THEN IX=I: JX=J : GOSUB 

370 FLSE GOSUB S60 

1070 1=1 I : J=JJ: GOSUB 900 : GOSUB S 

60 

1030 IF PEEK<14463) >0 THEN 930 

1090 GOTO 950 

1100 GOSUB 1400 :PRINT"VHMOS COLDC 

HP BEU8 NRVIOS, CRPITRO "TP*;:GOSU 

B 1410 

1110 GOSUB 1400 :PRINT"DIRIJH PO 

NTO LUMINOBO COM HS TECLRS COM FLE 

CHQ5 E RPEFTE < ENTER > PRRR DESENHR 

R") 

1120 FOP NN=1 TO NS 

1130 NX=0:60SUB 1410 tGQSUB 1400 ': 

PRINT "COLOGUE SEU "jSNfcfNNJ;" (CO 

MPPIMENTO DE" ;LStNN» ; "QURDPRDOS > " ; 

HAO T=0= GOSUB 950 : GOSUB 8SO :L 

P=-1:NX=NX+1!LEINX,0)=I:LE<NX,1>=J 

1150 IF NX = 1 THEN 1190 

1160 LI=LE«NX-i,0> :LJ=LE(NX-1,1> :I 

F I=LI BMD J=LJ GOTO 1200 

1170 IF (I-LI)*<I-LI>+<J-LJ)*{J-L3' 

> >1 GOTO 1200 

11S0 IF lOLECliO) BND JOLE(l,l) 

GOTO 1200 

1190 GOSUB 1250 : IF JP=0 THEN 1210 

1200 BOSUB 1400 : PRINT" NHVIO ILEGfl 



L !!!";: FOR JX=1 TO NX : I=LE< JX , ) : J 

=LE(JX,1) : GOSUB S90 :NEXT JX:LP=0 

•-GOTO 1130 

1210 IF NX<LS(NN> THEN 1140 

1220 FOR JX = 1 TO NX :|:.F (LE t JX ,0> , LE 

(JX,1> >=MN:NEXT JX 

1230 GOSUB 1400 :PPINT"0-K-, ESTR' 

COLOCRDO- " 
1240 NEXT NN: GOSUB 1400 : PRINT "TOD 
OS OS Na'JIOS PRONTOS PRRR CQMBqT 
E ! ' ": : RETURN 
12-50 JP=0:FOR I3=-l TO 1 : FOP J3=-l 

TO 1 = IF KP(I+I3,J+J3> < >0 .7P = ltPET 
URN 

1260 NEXT J3, 13= RETURN 
1270 JP=0:FOR I3=-l TO i:FOR J3=-l 

TO HIF KBU + I3,J+J3K >0 JP=l:RET 
URN 

12S0 NEXT 33, 13: RETURN 
1290 3P=UKK=KP<I,3> 
1300 IF KK>90 RETURN 
1310 FOP I3=-l TO l:FOR J3=-l TO 1 
:IX=I+I3:JX=J+J3 

1320 IF IX<Q OR IXU6 OR JX<0 OR J 
X>16 THEN 1340 

1330 KK=irP(IX,JX>:.TF KK<0 RETURN 
1340 NEXT 33,13: JF=0: RETURN 
1350 JP=l:IF KK=99 RETURN 
1360 FOR I3=-l TO t:FOR 33=-l TO 1 
: IY=IX+I3: JY=JX+J3 

1370 IF IYCO OP IY>16 OR JY(0 OP J 
Y)16 THEN 1390 
1330 IF KP<IY,JY)(0 RETURN 
1390 NEXT J3, 13 :JP=0: RETURN 
1400 PPINT@S96,CHF:*<31) 5 : RETURN 
1410 FOR TD=1 TO 500: NEXT ID:RETUR 
N 
1420 I=LI+i:J=LJ:RETURN 



1430 I =LI:.7^L J-U RETURN 

1440 I=LI-i: J=L J : RETURN 

1450 I=Ll:j=L:+l: RETURN 

1460 PRINTg64»14*10i "flPERTE QURLQU 

ER TECLR PRPR CONTINURR" 

1470 IF IN|-;EY'»="" THEN 1470 ELSE R 

ETURN 

1 480 NH=NH+1 : HC=HC+1 '. LS ( KH ) =LS ( I'H ) 

-1 :KP 1 1 , J > =92 : LE t NH , O ) =1 =LE C NH , 1 ) = 

J 

1490 IX=I:JX=J: GOSUB 370 iPPINVU 

m Ii-PflCTO NO SEU ";SN*(KH»" !" 

1500 IF LS<KHJ>0 RETURN 

1510 PRINJ"SEU ";SNt(KH);" RFUNDOU 

1 ": : GOSUB 1410 
1520 FOR 11=1 TO NH:I=LE(I1,0) : J=L 
E(Il,l>:t'.P(I,J)=-l:GOSUB 890 :GOS 
UB S60 :NEXT Il:NH=0 
1530 IF HC'NT RETURN 
1540 GOSUB 1400 : PRINT "EU GRNHEI fl 

BRTRLHR !!!!"! : GOSUB 1410 
1550 INPUT" VOCE QUER VER OS tl 
EUS NRVIOS ";R*:IF LEFT* < R*, 1 ) ="N" 

THEN 340 
1560 GOSUB 1400 :FPINT"0-K. RQUI E 
STOO ELES *":NG=65 

1570 FOP J=l TO 15:F0R 1=1 TO 15=1 
F KC(I,J))0 RND KC(I,3)<90 GOSUB 3 
SO 
15S0 NEXT I, J: GOSUB 1460 =GOTO S40 

1590 GOSUB 1410 : GOSUB 1400 : PRINT 

"DEIXE-ME PENSRR. . -"; 

1600 FOR 1=1 TO 15= FOR J=l TO 15 :K 

B ( 1 1 J ) =0 : NE..XJ T • T 

.1610 FOR NN = 1 TO NS 

1620 IF RND(0>>.5 THEN I1=RND(15-L 
S t NN ) - 1 > ; J 1 "RND ( 15 ) '■ J2= Jl : 12=1 1+LS 

<NN»-iiGOTO 1040 

1630 J1=PND(15-LS(NN)-1) :I1=RND(15 

) =12=11: J2=J1+LS(NN)-1 

1640 FOR 1=11 TO I2:F0R J=J1 TO J2 

: GOSUB 1270 : IF JP=1 THEN 1630 
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1450 NEXT J,I:F0R 1=11 TO I2:FGP J 
=.71 TO J2:KB<I,J)=NN:IF NG=3 BOSUB 

880 
1660 NEXTJ,I:NEXT NN: RETURN 
L670 PRINT"!- OS NRVI05 FTJDEM SER 
COLOCPDOS NFt VERTICAL OU NR HORIZO 
NTRL , " 
1630 PRINT" *IRS NP0 EM DIHSONQl ■ 

E..ES PDDEM ENCOSTRR NHS BOPDPS, 
16^0 PRINT" MPS NflO PI 0UTR0S NR 
VI05, NEM ME5M0 NOB CRNTDS." 
1700 PRINT'S. EU E VOCE NOS PLTERN 
CREM05 EM DISPPPRP TIROS. UM NUMER 
0" 

1 710 PRINT" MRXIMO DE TIROS POP 
SBLVfl, E UM LIMITE DE TEMPO FPRP" 
1720 PRINT" EPDR TIRO SRO FIXRDO 
5 DE PCQRDO COM GPRU DE DIF1CULD 
Ar>E." 

1730 PRINT"". VOCE PODE LOCRLIZRP 
□S riRDS PELRS TECLRS 'R' E 'Z' 
(PPPR BqiXO E PRRR CI MR RESPECT I 
VRMENTES.E PELRS TECLRS '<' E ')' 
(PRRR ESQUERDR E R DIPFTPR RESPECT 
IVRMENTE). RO PTINGIP R PQ3ICR0 D 
ESETRDR RPERTE 'ENTER' PRRR DISPR 
RRR. 

1740 PRINT" A. O J0GRD0R QUE RFUNDR 
R MRIS PRPIDRMENTE R FPOTR DO ORO- 
1750 PRINT" NENTE SERR' GRNHRD 
DR." 
1760 PRINT "BOP SORTE. SRIBR QUE EU 

SOU OTIMO JOGRDOR ! " ; 
1770 RETURN 

1730 CLS:FRINT"SINTO HUITO.... R S 
ITUBCBO FICOU MUITO DIFICIL PRRR M 
I M ! " 

1790 PPINT-VRMOS TENTRC QijTpq , 0. 
>■ . ?>• JGDSUB 1400 :RUN 
1S0O END 
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A telelnfofmdtica conquista novos espacos com a 
possibilidade de ocesso a vanos bancos do 
dodos privados ou piiblkos, como o Cirandao 
t °c VidKlexto. A ProUSgieo Microcompu.odores, 
pioneiro nesses services, desenvolveu un 
protocolo de comunicacao, 



destimido a gercneiar a liga- 
clo de microcomputadores 
ao Service Publico Ciran- 
dao, da Embratel (veja ma- 
teria na pag. 10). 

O protocolo de coniuni- 
cacfies desenvolvido pela 
Protdgica apresenta algumas 
racilidades especiais que per- 
mitem a transmisslo/recep- 
c3o de pro gramas, o envio 
de cartas pre-editadas ou 
ainda a compressao/descom- 
pressao de brancos, Detallia- 
mos abaixo eada uma dessas 
caracteristieas especiais. 

Protocolo de Transmis- 
suo/Recepcao de Arquivos 
— Esta facilidade devera ser 
chamada quando da trans- 
itu ssao/rece pea o de progra- 
ms, solicitada atraves do 
Service de Banco de Progra- 
mas. 

Transparencia — Neces- 
saria para a transmissao/re- 



eepeao de prograitias, quan- 
do do envio/recep$So de ca- 
raeteres penencentes a faixa 
de OOH a 1FH e 80H c FFH. 

Compressdo/Descom - 
pressao de Brancos — Esta 
facilidade per mite uma me- 
nor sobreearga de tarifaflo 
por volume, causada pclo 
trafego de caraeieres bran- 
cos. Caso esteja presente no 
emulador, o sistema central 
podera fazer a transmissio/ 
recepcao de telas com com- 
pressao de brancos. 

Transmissuo de Cartas 
Pre-Ediiadas — Caso o nsua- 
rio utilize editor "off-line" 
no mienxomputador, as ear- 
tas cditadas deverao ter ate 
6Kb de lamanho com eddigo 
OAH(10D)para fimdelinha 
e 0DH(13d) para fim de car- 
ta. O emulador devera caviar 
a carta, armazenada cm dis- 
co ou em determinada posi- 



cao de memoria, tao logo 
rcceba do sistema central o 
eddigo "7 D64H" Ocddigo 
"7D65H" devera provocar 
interrupcao da transmissao 
da carta por parte do proto- 
colo de comunicacao. Sera 
enviado peto sistema central 
quando a carta exceder o li- 
mite de 6Kb. O reeebimento 
destc eddigo "7D65H" pelo 
protocolo ou o envio do ca- 
ractcre "ODH" para o siste- 
ma centra! signifiea que o 
proeedimento normal deve 
ser restabelecido. 

Imprexsuo Paralela — E 
recomendavel que os dados 
enviados pelo sistema central 
aos terminais de video e mi- 
crocomputadores possam ser 
enviados tambem para a im- 
pressora, que os imprimira 
paralelamente ao preenehi- 
mento da tela desses termi- 
nal's, exeeutando o controle 
dc fiuxo dos dados recebi- 
dos. Opcionalmente, os da- 
dos enviados pelo sistema 
central nas telas dos termi- 
nais podcrao ser armazena- 
dos paralelamente em me- 
moria secundaria (disco ou 
cassete), para posterior i re- 
press ao. 




^V> 








Voce ja decorou todos os 
mimeros de eddigo das men- 
sagens de erro do DOS 500? 
Recorre ao manual a cada 
ve/ que, inesperadameme, 
tillia delas surge no visor do 
set] CP 500? Ja precisou for- 
matar um disquete para li- 
vrar-se de um programa pro- 
tegido por senna, que voce 
esqueceu ou nao conbecia, 
visando ganhar aquele espa- 
cinbo que faltava nessc dis- 
quete para o seu programa? 

As dicas destc niimero 
pouparao seu tempo nos 
dots casos que ci tamos. O 
primeiro PATCH e para 



mensagens de erro completas 
e diretas. O segundo, para 
apagar qualquer arquivo. 
Scmpre em DOS 500 Ativo, 
digite: 

PATCH *4(ADD = 4E28, 
F1ND = 20,CHG=18) 
PATCH *3(ADD = 4F6C, 
FIND = 38,CHG=I8) 

Para os programadores 
em Basic, uma dica sonora, 
bem simples, que usa uma 
sub-rotina em ROM, sem al- 
terar nenhum dos registrado- 
res. O som ouvido apds o 
aparecimemo de cada aste- 
risco no video e o resultante 
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de eada bit emitido para gra- 
vacao em Ftta. A numeracao 
de linhas apropriada resu!- 
tara numa sub-rotina bem 
aprovcitavel. Para os CP 300 
e CP 500, versao cassete, de- 
ve ser Utilizada a linha 100*. 
10 CLS = PRINT@450; 
"TESTE DE AUDIO" 
20FORI=lTO128:GOSUB 
100:PRINT"*";:NEXT: 
END 

100 DEFUSR1 = &H0264: 
X = US R 1(0): RETURN 
100' POKE 16526, 100: 
POKE16527,2:X = USR(O): 
RETURN 

Ate o proximo mimero. 
PFGP 




Macrof: um novo 
aplicativo no 
mercado 

Para gerenciar bancos de da- 
dos, editar graficos e textos, 
com acentuaclo conforme as 
regras da lingua portuguesa, 
Almir Joaquim de Souza, da 
Universidade de Goias, desen- 
volveu o programa Macrof, es- 
crito em linguagem de maquina 
que atende aos usuarios do CP 
300 e CP 500. Com capacidade 
para 73 campos de registros, ge- 
renciamento virtual de arqui- 
vos, procura e ordenacao por 
qualquer campo, o Macrof tra- 
balha direto no disquete inteiro, 
possibilitando saber previamen- 
te quantos registros podem ca- 
ber no disco. O Macrof esti 
sendo comercializado em Goia- 
nia pela Atila Inform&tica, tel.: 
(061) 223-1300. 



Mais um revendedor 
Prol6gtca em 
Campinas 

Campicom, este e o novo re- 
vendedor da Proldgica em Cam- 
pinas, que conta atualmente 
com 42 funcionarios e duas fi- 
liais: em Ribeirao Preto e Pocos 
de Caldas. Programas para a 
area rural e aplicativos para o 
setor publico, como contabili- 
dade piiblica e controle de divi- 
das ativas, sSo alguns dos pro- 
gramas desenvolvidos pelo de- 
partamento de software da Cam- 
picom. 



Cursos 



Mensalmente o Instituto Sul- 
livan promove Cursos Regulares 
de Linguagem Basic (normal e 
avancado), Cobol, Fortran e 
Assembler e Cursos Especiais 
Aplicativos: CPM, Visicalc, Vi- 
siplot, Visifile, Supervisicalc, 
Multiplan, DB/Master, Editor 
de Textos. Sistemas de Conta- 
bilidade para Micros, Sistemas 
Operacionais. Maiores informa- 
cdes no prdprio Instituto, pelo 
tel.: (021) 54 1-9333. 

Em outubro e novembro o 
NETC — Nucleo de Ensino de 
Tecnologia e CiSncia — estara 
promovendo cursos de Eletrfi- 
nica Digital, Computadores e 
Microcomputadores Digitals, 
Hardware de Sistemas Baseados 
no MP Z-80, Hardware de Tele- 
processamento, Software de Te- 
leprocessamento, Amplificado- 
res Operacionais I, Interfaces 
A/D e D/A, Sistemas de Comu- 
nicacao via Fibra Otica. O tel. 
do NETC e (011) 220-1989. 



CP 500 no 
Planetarto 

O Planetario Municipal de 
Sao Paulo recebeu recentemen- 
te da Proldgica Microcomputa- 
dores um CP 500 e uma impres- 
sora P 500, que serao utilizados 
no estudo de astrofisica e cien- 
cias correlatas. De acordo com 
o fisico Irtneu Varella, que diri- 
ge uma equipe de pesquisadores 
do planetario, o CP 500 tam- 
bem sera usado para controle de 
arquivos, calculos financeiros, 
cadastro de alunos e cursos. 
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BIBLIOTECA BRASILEIRA DE SOFTWARE 

}rias 



Diversoes 

eJogos 

Pessoais 



UsoCaseiro 

Comerciais 

Graficos 



E..., mais cite 4000 original; 



que voce pode retirar 
e levar'para 
sua casa ou 
empresa para 
usa-lo a vontade. 



Para os principals 
micros do mercado: 
TIMEX/SINCLAIR, 
CP200 



Educacionais 
Profissionais 
Cientfficos 



CP300 
CP500 

TRS80 Mod. Ill 
Sistema 700 



f-FI 

o Ki 
i 



Voce pode consultar pessoatmente 03 catalogos de Software ou sollcltar inf ormacoes pelo Correio. 

Av. Brigadeiro Faria Uma, 1390 - 8? Andar - Cj. 82 - CEP 01452 • Tela.: (011) 814-0682, 813-6407 e 210-1257 - SSo Paulo - SP 



Modelos: CP 300/CP 500 48 Kb RAM 



Com o microcomputador, multiplicar tornou-se uma gostosa 
e diverrida brincadeira. Dando sequencia aos programas 
educacionais publicados na GP 8 e 9, neste numero de 
nossa revista estamos publicando um apticativo que 
propoe a crionca responder a algumas operacoes de 
multiplieagao. Se o resposta for correta, a face, que nos jd 
conhecemos, sorrird. Caso contrdrio, ficard decepcionada. 



AAU 



L 



T 



1 'IN ' •►•*****■**+**************** 

20 '* EDUCRCIONRL IIT * 
30 '» PROLOGICR * 
40 ' * CP-300/CP-5QO * 

50 ' *********-#*****-**-********** 

60 CLS!PSINTS6*64+20,STRIN8*t20il3 

l ! : 

70 PPI\)T(»7*64+24, "MULTIPLICAnfln" : 

BO PRINT@3*64+24, " P/ l.GRHU" ; 

90 PRINT89*64+20 .STRINGS ( 20 , 131.) ; 

100 303'JB 390 

110 CLS 

1 20 ' 

130 CLSsGOSUB 650 

14,0 R=PND<99> :B=RND(9) SC=RND(9) :D= 

<B*10H-C:IF R<D GOTO 140 

150 P*="*H" »g*="x##" :H*=>CHR*< 191 ) 

160 PRINT8333i"";iPRINTUSINB P»SRs 

170 PRINT«3'?6i"";:PRINTUSINeQ*|Dj 

180 PRINTS460 , " " ; 

190 L=526SGQSUB 520 :H*=L* 
200 PRINTaS2&,MSisL<=525JSQSUB 520 
: Ji -L % 

2 1 HT.- J*+H» = PRINTS525 , H* : 
220 U' tf)»CX100 GOTO 250 
230 L-524180SUB 520 :Jf=L* 
240 H»=JS+H* :PRINTe524,H*5 
250 L-539:G0SUB 520 =G*=L* 
260 PRINTe>3S9i6*? 

270 L=538iG05UB 520 = I«=L* 
i - r*+6*!PRINTaSS8,G*J 

290 IF(H#B)C100 GOTO 320 

=387sGOSUB520 :1*=L« 

310 G*-T<l+GS: PRINT 2537, G*: 
I "Tin 8650, " " : 

330 L-713SG0SUB 520 sl$=L», 
54 P-VflL{G*)*10+VflL(H*) 

35o PRINT8718,I*5 

360 L=717sG03UB 520 :Gt=L» 

370 I1=G*+I* 

380 PPINTe717,I*; 

3Q0 TF PdOO GOTO 480 

400 L--716SGDSUB 520 :G*=L* 

410 I*=G*+I* 

420 PRINTfi716,I*; 

430 IF PC1O00 GOTO 460 

440 PRlNTa715,","; :L=714:GG3UB 520 



I 



PL 



C 



A? 



:G*=L* 
450 I*=G*+I* 
46 ' PRINTS714,"-; sRRINTUSING"* , ##=* 

";vfil<i*> : sppint" = ri'jB pespqstr 

II * 

470 PRIMT3773, "" ; spRmTUSING "*,##« 

" :(R*D IS SPRINT" = RESRDSTO CQRRE 

TR" 

4 SO IF VRLCT*>=n*D GOSUB 610 :ELS 

E GOSUB 6S0 

490 FQRX=1 TO 2500= NEXTX 

500 GOTO 120 

510 END 

520 ' 

530 PRINT9L,k*; 

540 FOR X=l TO 5 : L*"INKEY*«IF Lt. 

< >"" GOTD 600 

550 NEXT X 

560 PRINTSL , " " s 

570 F0RX=1 TO 15:Lt=INKEY*s IF L*(> 

""THEN GOTO 600 

5S0 NEXTX 

590 GOTO 530 

600 RETURN 

610 ' 

620 ' FRCE FELIZ 

630 P=215sF0PX=lT07:PRINTaP,HS(X> 5 

:PPINT@916,"HUIT0 BEEMI1M ['.)!!! 

"i sR=p+64SNEXT X 
640 RETURN 
650 ' FRCE NATURAL 

660 P=215sF0RX=l TO 7 SPRINT SP,N*< 
X)5 sPRINTS916,"QUflL E' O RESULTBDG 

????": :P=P+64sNEXTX 
670 RETURN 
&80 ' FRCE TPISTE 

690 P =215 SFOR X=l TO 7:PRINT@P,S 
*(X) S :FkINT'3916,"LRMENTRVELL !!! ! 

"; ip=P+64SNEXT X 
700 RETURN 

710 " DATB PRPR FACES 
720 BATB 32,32,32,176,140,140,131, 
131,131,131 ,131,131,131,140, 
140 , 176, 32 ,32, 32 , 32 , 32 , 134 , 131 , 32 , 
32,144,160,32,32,32,32,3 2,14 
4 , 160 , 32, 32 , 131 , 164 , 144 ,32, 16S , 129 
,32,32,32,130,129,32 ,32,32,3 
2,32,130,129,32,32,32,32,149,32 
730 BRTA 149,32,32,32,32,32,32,32, 
136, 176, 132,32,32,32,32,32,3 
2,32,32,149,133,144,32,32,131,164, 
144,32,32,32,32,32,1 to, 1 52,1 
31 , 32 , 32 , 32 , 154 , 32 , 32 , 130 , 137 , 164 , 
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176, 176 , 130 , 131 , 131 , 131 ,131, 
131,129,32,160,176,140,131,32,32 
740 DBTR 32,32,32,32,32,131,131,13 
1 , 140, 140 , 140, 134 , 131 , 131 , 13 
1 ,32 ,32,32, 32, 32 

750 DRTR 32,32,32,176,140,140,131, 
131,131, 131,131,131,131, 140, 
140.176,32,32,32,32 

760 DRTR 32,154,131,32,33,160,144, 
32 , 32 , 32 , 32 , 32 , 1 60 , 144 , 32 , 32 
,131,164,144,32 

770 DATA 163,129,32,32,32,32,32,32 
,32,32,32,32,32,32,32, 32 , 32 , 
32, 169,32 

730 DRTR 149,32,32,32,32,32,32,32, 
1 36 , 143 . 132 , 32 , 32 , 32 , 32 , 32 , 3 
2,32,32,149 

790 DBTR 133,144,32,32,32,32,32,17 
6,176', 176,176,176,152,32,32, 
32,32,32,154,32 

300 DBTB 32,130,137,164,176,32,130 
,32, 32, 32, 32, 32, 32, 32, 160, 17 
6, 140,131,32,32 

BIO DBTR 32,32,32,32,32,131,131,13 
1 , 140, 140 , 140, I 34 , 1 31 , 131 , 13 
1 - 32 ,A2,32,32 ■ 1"". 

S20 DCTR 32,32,32,176,140,140,131, 
131,131,13.1 ,131 ,131,131,140, 
140,176,32,32,32,32 

330 DBTR 32,134,131,32,32,152,164, 
32,32,32,32,32,152,164,32,32 
,131,164,144,32 

340 DRTB 163,129,32,32,32,32,32,32 
,32,32,32,32, 32 , 32 , 32 , 32 , 32 , 
32,169,32 

350 DRTR 149,32,32,32,32,32,32,32, 
136,131,132,32,32,32,32,32,3 
2,32,32,149 

860 DRTR 133,144,32,32,32,32,176,1 
52. 140,140,140,140,164,176,3 
2,32,32,32,154,32 

370 DRTR 32,130,137,164,176,131,32 
,32,32, 32 ,32,32,32,32,163,17 
6,140,131 ,32.32 

320 DRTR 32,32,32,32,32,131,131,13 
1,140,140,140,134,131,131,13 
1 ,32,32,32,32,32 

890 CLEAR lOOOSDTI A(20> , HS(7) , N$< 
7) ,B*(7) 

900 FOR X = 1 TO 7SF0RV= 1 TO 2Q»R 
ERD R:H*<X>=--H*(XMCHRf.(A> JNEXTYsNF 
XTX 

910 FOR X = 1 TO 7SF0RY = 1 TO 20s 
RERD As N*<X)«N*<X)+CHR*C8> SNEXTY: 
NEXTX 

920 FOP X = 1 TO 7:FnPY = 1 TO 20= 
= ERD Ps3*(X)=i,*(X)+ChR*;R) sNEXTYs 
NEXTX 
930 GOTO 120 
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ste programa foi desenvolvido por Carlos Alberto da Silva Pinto (Agudos-SP) e permite o cadastra- 
mento de todas as obrigacoes que voce ten ha diariamente, no periodo de 40 dias, com opcoes 
de consulta, inclusao, complementacao e gravacao. 



2 '* PFOGRRMA USURRIO * 

3 ' » PROL0GICR * 

4 '* CP-2O0 

5 '4HHMHHHMHMI-4HI ****###*** • + +»** 

7 LET T=0 

10 LET NO 

20 DIM R$t2> 

30 DIM B*C2) 

10 DIM C*<2) 

50 DIM D*!5i'i> 

60 DIM E*(50) 

70 0IM F»(50) 

30 Die- G*5"> 

90 DIM <»<31 

100 DIM H*(40,204i 

110 CLS 

120 PRINT TOP 10 : "flGENDR DIRPIR" 

130 PRINT ■ i i , , i i 

14Q PRINT "i = IMCLUSnO" 

r.M PRINT "2 ■ CDdPLEnENTRR DRD0S" 

' "3 = CDNSULTR" 
j-/,, prini "4 » ^cjlURR DADOS" 

iso print nr i9,o; "eschh umr opcr 

0" 

190 LET 2»=INKEY* 

200 LET OP= CODE Z%~?.?. 

210 I" 0P(I OR 0P)4 THEN GOTO 190 

30T0 500*OP 
500 LET CT=N+1 
510 GOSUB 50O0 
520 IF CT=N*-r: THEN LET N=M+ 1 
330 PRINT m 20iO;"DISTE ENTER P/ 
NCWh INCLUSRO" 

540 ps' int nr 2i,6;"ou m PARR a men 

U" 

550 LET Z1 = ItV-.EYt 

560 IF Z*"CHR* US THEN GOTO 510 

57C IF Zt="M" THEN GOTO 110 

580 GOTO 550 

1 0O0 CLS 

1005 LE T=l 

1010 GQSUB 1500 

1015 LET D*=Ht(I,7 TO Sh) 

1020 LET E*=rif>(I,57 TO 106) 

1025 LET F*=H*< 1,107 TO 156) 

1030 LET E$=H$( 1,157 T0> 

1090 GQSUB 5130 

1 100 LET T=0 

1110 PRINT RT 20,0; "DIGITE ENTER P 

/ MOVR INCLUSRO" 

1112 PRINT RT 21, 6: "OH M PRRR O ME 

NU" 

1115 LET 2t=INKEY* 

1120 IF 2*=CHRt. 113 THEN SOTO 1000 

1125 IF Z*="r1" THEN GOTO 110 

1130 GOTO 1115 

1200 LET H*d)=R*+B*+C*+D*+E*+F*+G 

% 

1210 RETURN 



.150O CLS 

1510 PRINT RT 10i05"QURL DIR ?" 

1520 INPUT a% 

1530 PRINT RT10,0;"OlWL O MES ?" 

1540 IM-'UT Bt 

15'.'. CLS 

1530 PRINT R«;"/"jB»J"/34" 

1560 FOR 1=1 TO N 

1570 JF H*SI,TO 2)"R* AND H*(I,3 T 

a 4)*S* THEN BOT01610 

1530 NEXT I 

15"0 PRINT "RESISTRO INEXISTENTE" 

IF T=l THEN GOTO 1100 
1600 GOTO 1690 
1610 CLS 

1620 PRINT TRB 105 "REGISTRO N ":I 
1630 PRINT RT 2,1.'"; "DIR / /" 
1640 PRINT RT 2,14lH*(I, TO 2>;RT 
Z,17!H*(Ii 3 TO 4>iRT 2,20;H*<1, 5 

TO 6) 
165''> PRINT nT 4,0: "1 = "JHHIi 7 T 

! 
1660 PRINT RT 3,0: "2 = ":H*(I, 57 
TO 106) 
1670 PRINT fit 12,0; "3 = ";H*(l,107 

TO 156> 
16S0 PRINT RT t6,0t"4 = ":H«<T, 15 
7 TO) 

1635 IF T=l THEN RETURN 
1690 PRINT RT 20, Oj "DI6ITE ENTE P/ 

NOOR CDNSU'_TR" 
1700 PRINT RT 21,6j"0U M PRRfl ME 
■|H" 

1710 LET Z*=INKFY1 

1720 IF Z*=CHRt. 113 THEN GOTO 1500 
1730 IF 2*s>"M" THEN GOTO 110 
1740 GOTO 1710 
2< Oi > CLS 

2010 print pt 10,0; "PRRR GRRVAR DI 
GITE ENTER" 

2015 PRINT "PRRR O MENU DIGTTF. M" 
2020 INPUT Z% 

2025 IF Z*="M" THEN GOTO 110 
2040 GOTO 9980 
5000 CLS 

5005 LET D*=">" 

5006 LET E*=">" 

5007 LET F*=" >" 
5O03 LET G$~">" 

5010 PRINT TRB 4!"PEGISTR0 NUMEPO 
:":CT 

5020 PRINT TRB 4! "PI A / / 
5030 PRINT RT 20,05 "DIBITE DIR" 
5040 INPUT RT 
5050 PRINT RT 1,S;P* 
5060 PRINT at 20iQj "DIGITE MES" 
5070 INPUT E-1. 
5080 PRINT RT 1 , 1 1 ; B4 
50S5 GOSUB 6000 
5090 PRINT RT 20,0; "DIGITE RNO" 
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5 1 00 


INPUT C* 


5110 


PRINT fit 1,1 4sC* 


5120 


PF.IN1 RT 4,0; "1 = ";RT 3,0; "2 


= » : 


;RT 12,0: "3 = " :RT 16,0?"4 = " 


5 1 30 


PRINT RT 20,0; "ALTERHP O'J INC 


. MENSRQEM? (fl/Ii" 


5140 


INPUT Lt 


5150 


IF Lf="R" THEN LET US«*"flL.TERfl 


rr 1 " 


IF L*«"I" THEN LET L*="INCLUI 


5170 


PPIN T q T 20,0:"QUR'._ N DR ME 


1 I"; " : L* 


5 1 3 . 


INPUT L 


5131 


IF L<1 DR L)4 MEN GOTO 5170 


5135 


PRINT RT 20,05 "DIGITE q MENSR 


GEM 


" 


5190 


IF L. = .l THEN INPUT D* 


5 >00 


IF L=l THEN PRINT RT 4,4:D* 


5210 


IF L=2 THEN INPUT E'l. 


5220 


IP 1 -2 THEN PRINT RT B,4;E1 


5230 


TF L»3 T HEN INPUT F* 




IF l = 3 THE r RT 12,4;F* 


525'."' 


IT l "4 THEN INPUT G* 


5260 


IF L^4 THEN PRINT OT 16,4;S* 


5265 


IF ' (1 OR L>4 THEN GOTO 5130 


5270 


R-'L'll RT 20,0;" 01.1 TRO MENSRGEM 



5280 [NP1J1 ^* 

5290 IF M*="N" THEN GOTO 5315 
5300 IF "■? < )"S"THEN GOTO 5ZS0 
5310 GOTO 5130 
5315 I" J ■ 1 THEN GOTO 12 

PRINT G~ 20,0; "DADOS CORRETOS 

5330 INPUT 2* 

5340 IF '.'.1="N" THEN GOTO 5000 
5350 IF ZO"S" THEN GOTO 5330 
536'"> LET H*tCT)=R*+B*+C*+D*+E*+F»+ 

■^ - 

. ' I ET CI=CT+1 
5380 RETURN 

6000 IF N=0 THEN RETURN 
6005 FOR 1=1 TO N 

6010 TF n.|, (J,TO 2)=R$ PND H*(I,3 T 
4*=Rf THEN GOTO 6030 
6015 NEXT 1 
6020 RETURN 

CLS 
6O40 PRINT RT 12,3 J' 

ESTH RDPSTRRDO' 

...', .", PRINT RT 13 ,45' 

: Qpcna 2" 

604& PRINT RT 14,4; ' 

/ ,. 7 •■ ,-. ii i Of 19,0:' 
6050 LET 2**INKEY* 

i ;hr* us 

-. ■-... i GOTO 6i '50 
■ 

998'3 ■Tfl'.'E"qnENDR" 

9999 GOTO 110 



'ESTE DIR Jfl 



DEVE SER USRDO 



DO MENU" 
<TECLE ENTER)' 



THEN GOTO 11" 




CASSINO 



Voce nao precisa ir a Monaco ocj ao 

Uruguai para ten far a sorts. Con vide 

seiis amigos e aposte na roda da 

fortune com seu micro. O jogo que 

publicamos neste espaco permite a 

participacdo de ate oito apostadores e 

apresenta todos os comandos no video, 

Siga as instrucoes corretamente e boa sorte! 



Y 



Modelos: CP 300/ CP 500 48 Kb RAM 



1 r'j ************* *».*###*.#**.*..* 

20 '« C R S S I N * 
30 '* PR0L0BICH * 
40 '* CP-3QO/CP500 * 

^.ej ' •«**.*+ + >* + #.+ ,» « «« *********** 
6U DIM IN*,U*,UL,Ui.7.,«S.WD,FL:G0Ta 
:-■ 

71 ] t Hf.=" " : Ms= IMt'EY* : WD=0 s P=0 : u|B=i-10 
: Ml 7.=WD : IFFL=iJHTHENFL=l 
30 PRINTSTRINS*<fiBSCFL),GHR*(136) > 
:9TPING*(PBS(FL) ,CHR*<24) ) ; 
90 PRINTCHR*< in) ; :F0RWX=1T025:W*=I 
NKEY*:IFW*< (""THEN 100 ELSENEXT»PR 
r NTCHRS (IS);: FORW/.=l T025 : W*=INKEY* 
: rFW*< >""THEN100 ELSENEXT: GQT090 

100 IFW*( >CHR*(13)THEN120 ELSEF'RI 

NTSTPINGS[RBS(FL>-HL7,," " J 5 

1 10 PRINTCHR* 1 15) j ! WX=2S - NEXT : RETU 

PN 

120 PRINTCHfi*(14) ! :IFU*=CHP*(24>TH 

ENPRINTSTPING*<UIL7.,CHP*124) ) ; :G0T0 

70 

130 IFW*OCHRS<B>THEN170 ELSEIFWL 

X«0THEN9O ELSEPRINTCHPM24) pIFF 

D0THEN150 ELSEIFPEEKt 16413 )=44TH 

EN160 

140 IFPEEKJ 16413 )=46THENWD=0;G0T01 

50 ELSEIFPEEK< 1641S) =430PPEEK s 164 

13)=45THENWS=0 

ISO IN*=LEFTS(IN*,LEN(1N*>-1) 

160 WL7.=UL 7.-1: POKE 164 13,1 3b :GDTQ90 

170 IFRB8(FL>=WLXTHEN?0 ELSEIFFL 
> OTHENIPH* ) = " " RNDW* < =" Z" THEN220 
ISO IFW*=" . "RNDWD=OrHENWD=lGDT0220 

190 IFW*=" , "THEtlPPINTW*; :UL7.=WL-/.+l 

SQ0TO230 

200 IF(W*="-"ORH*«»"+" )RNDkS=ORNDWL 

7. = 0THENWS=l :(3OTDZ20 

210 IFM*<"0"ORH*>"9"THEN90 

220 FPIMWt; : tN* = IM*+W*:WL7.=l4LX+l 
230 IFRBS(FL)=1THEN110 ELSE90 
240 CLERR2OO0 ; DEF INTR-E •■ GQ5UB620 
:TS*=' , C R S S I N 0" 

250 DIMR*(73) ,B*(9> T NM*(3) , R(73),P 
Fit 15) ,TX*<20> ,WIN<3> 

1160 CLS:FORH=iT073:P.EHDfi*< 



R > sNEX r : RESTORE :F0RR»1 n C173 :RERDR ! R 
J :NEXT-.F0RR=1TU1 5 : RERDPfl ( R ) i NEXT : F 
QRQnj r08!UIM(R) '20 :NEXTs RANDOMS MS" 
' , - :-l - ■■f.;.-l S4t.utt "iPRINTCHR*(23)s 
IT >401 ,TS*; 

| - 1 RJN j1 ... j , 1 t. : •, : pp J NT85ZA , "R 

H IJ Q R D E PPIN T :PP 

INI :FaRR=lT073-.0*="+"+fi*(R):Fl*<P>« 
- IH MO*, 2! sNEXT 

■•' - ' - LTi'iv : RI RDRD !C*« 1 > =C* ( 1 > +C 
HR*(RD) sNEXT :F0RN= :T09«C*(N>=RISHT. 

: ■ - 1 ) , 1. ! : Q= 1 : F0RN« 1 1 D10 : RERDfi 
1) : Dl . |aDI .*+CHR* ( RD ) SNEXT ! 
290 F0RN=9T014:F0RN1« 1 CQlOsRERDRD: 
TX1 ( N > =TX* ( N ' -M2HRS ' RD I !NEXTsTXS(N ) 
l-i ' I+DL*:NEXTSF0RN«1TQ11:R£R0SD 
:TX*( IS)=tx*( 15>+CH»*<PD> :NEXT 
300 FQRN=1 r05sF0RNlKlTO8SREflDRDsTX 
*(N)=TX*(N)-K ' UNEXTNliN 

RTR 1.2,40,1 ,5, 1,2, 1,10, 1,2,1 
,5, 1 ,2, 1 ,5, 1 , 2, 1 , 20 • ] , 2 , 10 . 1 , 2 ■ 1 , 5 
■ - . ■ i ,!-■,. 1,2,13,1 ,:■, 1 , 10, 1,2,1,2,1 
, 20 ,1,2,5,1,2,10,1,2,3,1,2, 40 ,1.5, 
i ,1 l ,10,1,2,1,5,1,2,1,3,1,2,516,3 
90 i MH , 703 , 543 ,612, ft7fe , 740 , hb , 106 , 
130, 170, 194,234, L55, 43, 49, 32, 43, 50 
, 32 , ^3,T:-i, 32 

320 1'RTR 32, 67, 82, 85,90, 69, 73, 82,,7 
9 , 83, 3:'. ■ E -" 1 "" ■ 32 ■ Si ' • 65 , 71 ,65,32,32, 50 
. - 5,52,Bt>,65,71 ' : r -.,32,32,57-^9, 
48,32,80,65,7] ,65i i • • - ""1,5'">, 43,3 

65,71,65,32,50,48,49,51 ,32, SO 
, ^,5 , 71 , 63 , 32 , 52 , 48 , 52 , 48 ,32 , 30 , 65 , 
7 I .. ^ ,32, S 2 , 48 ,49 , 32 , J , 65 , 7 1 , 65 , 3 
2 , 32 , 36 , 37. , 49 

7 ■■'"■ i ■ i . l ! =i 32, 71, 65, 7f, 72, 79 ,85, 32, 3 
' BO ,69 ,82, 63 , 69 , 85 , 32 , 32,63,69, 36 
, 6'.' , 37 , 37 ,32,32,65,67, 65 , 66 , 79 , 35 , 

;. !3, 79, 66, 82, 63, 32, 32 

i F»:E<AR*> :CL3:PPINT5TPING*!5 

t>, 191)?STRINB*< !''>, 170) 

■ rL=-l;p>--lNl§192,"0URL □ NP. DE 

IDORES (1-3) : ";tQ0SUB70 :M 
n=vRL < [N*j :IFMM< 1DRNM>8THENSOT0350 

360 F0RN=1T0MM:PRINT:PR1NT I, N0ME DO 
laSRDOR =====> ";M;" " ; : FL=12:60* 
SUB70 : Nit- (N)=IN» SNEXT: CLS ! TK=-N 
M 
370 PRINTa20," R T F N C R "::PR 
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INTSS4, STRING* (21, 131) 
330 PRINTS320, "TODOS JOGRDORES REC 
EBERRM 21 FICHRS PRRR JOGRPEM-":PP 
INT:PPINT"((< CRSSIN0)>)E 
UM ESTRBELECIMENTO PEQUENQ E R SUH 
BRNCR"! SPRINT: PPINT"TEM RPENRS CP 
t 100, 00. TENTE OUEBRfl-LH- RL6UMHS 
JOGHDRS RLTRS , " : PRINT :PRINT" PODEM 
CDNSEGUIR IST0-"; 

390 BRNK=10O:RR=FRE(flR*> :GDTD410 
400 IP=0 = RESUt1E390 

410 ONERRORGOTOO : PRINT2972, "TE 
CLE (ENTER) PRRR CONTINURR" i sFDRNl 

=1TQ50:NEXT:IP*= IP«=INKEY*: PRIN 

T0972, STRING* (3 1,32) ; : FOPN=1T025:N 
EXT:IFIP*=""THEM410 ELSECLS: GOSUB 
570 

420 TK=TK+NM : PRINTS3 , CHR* ( 143 > ; TK i 
CHR*(143) i :PRINTe62-MS,CHR*(143);P 
D : CHR* ( 143 ) ; : IP*=" " : PROFIT=TK-PD J I 
FPROFIT(-BRNKTHEN610 ,ELSEPRINT897 
S,"LUCR0 DH CHBR HOJE >R*" ; PROFIT; 
:F0RN=1TQNM 

430 PRINT0334, STRING* (60, 32) ; :PRIN 
TfiE34,2*;" " ;NM*(N) ; : PRINT" ESCDLH 
UM NUMERD PRPR RPOSTRR ";:FL=-Z 
440 GOSUB70 :.IFIN*=""THEN460 EL 
SEE ( N ) =VHL < IN* ) : IFE ( N ) =0THEN430 E 
LSEIFE(N)( >1RNDE(N) ( >2RNDE!N)( )5RN 
DE(N)()10RNDE(N)< )20RNDE(N) ( >13RND 
E(N) ( J40THEN430 ELSEGQ5UB450 i NE 
XTSGOT0470 

450 PRINT@PR(N>+Q,' , VHI NQ NUM- "; 
E(N) : :PRINT@S34,STRING*(63,32) ; :PR 
INT@S32,STRINB*(63,32) ! :RETURN 
460 IFE(N)=OTHEN430 ELSEF0RN=1T0N 
n:PRINTaPR(N)+(3,"VflI NO NUM. ";E( 
N> ; : NEXT : PRINT2S34, STRING* ( 63,32); 
470 FOPT=lT015:FORN=lT09:PRINTe314 
+0," "iBtfN)!" , '::NEXTN t T:T=G:P=0: 
X=RND(54) :Y=X+13:Z=PND(5) sFORM^lTD 
17+E : F0PM4=XTDY : PRINT9324+P , H* ( N4 ) 
; : P=P+3 : NEXT : F0PS= 1T0T : NEXT : T=T+15 
:X=X-l:Y=Y-l:IFX<lTHENX=54:Y=72 
480 P=0:NEXTn:PRINT(5155, ,, GRNHCU > 
";H*iN4-0) ; :GOSUB5lO :PRINT@906,Z 
*!" TECLE (ENTER) PRPR RESULTR 
DO "J 

490 IP*=INKEY*:IP*="" 
500 IP*=INKEY*:PRINTa906,2*; : PRINT 



3*943 , ZS : : FQRN 1 = 1 T0100 : NE X T : PRINT69 

oh," •", spRiNTe^s," "?sFOP.Ni=iTa 

50:NEXT:IFIP* = " ,, THEN500 : El. SEPRIN 

TS906, STRING* (36, 32) ; sQOSUBtOO :P 

RINTei55,TX*(13) 5 S6DSUB5SO :GDTQ4 

2Q 

510 F0RT=lTarM:IFR(N4-0) ( J13THENIF 

fl(N4-Q)=Ei T) rHENPRINTePB(T)+Q, 

:PRINTUSINGM1.;q(N4-Q) ; spRINTTX*! 1 * 
| :;■ IS(T)=WIN(T 1 t-0( N4-Q1+1 ff D"»PO+B( 
N4-Q) :TK=>TK-l:BOT0540 
5Z" IFR(N4-G)-13THENIFR<N4-Q)-E<T> 
THENPRINr<*PR( T)+t), '■ " ; iPRINTUSIMBM 

*;fl<N4-Ql+27S !PRINTTX*(1) ;:WIN(T)~ 

WIN<t>+r<N4-Q)4-23:PD+40:ti =t> -1 : GO 

T0540 

530 PRXNTePR(T.)+4 f " " 5 :PRINTUSINGM 

til; :PRINTTX*<2) : 

340 ^1F5*=5TRt.^pD)+ l ■' " :MS-!_EN(MS$) 

!WIN(T)=WIN<T)-1 : NEXT: RE TURN 

550 FQRT«lTONH!PRlNTaPR<T)+C), ;: 

PRINTUSINST1*(WIN(T) ; :IFSGN(WIN(T) 1 
= -lTHENPPINTe^fl(T)+(}+9,TX*< 3) : : GOT 
0560 = EL<3E: IFS6N(WIN(T! ) = + ) rHENPR 
INTePH<T)+Q+9,TX*!5) j :GOT0560 : EL 
SE : 1 FSGN ( WIN ( T ) 1 =0THENPR ] N1 8PR S T ) + 
q+9,TX*(4> : 
560 NEXT: RETURN 

570 PRINT824B+Q, STRING* (60, 140) spR 
IMTS376+Q, STRING* < 60, 131) SPRINT824 
B+Q,CHR*< IBS) : sPRINTS307+Q,CHR*{iS 
:PRINTi»286,CHR*(143) (CHR*( 171) ; 
CHR*< 151) ;CHP*< 143) : :PRINTi»4]4,CHP 
*( 143) :CHP*( 140) ;CHR»( 140) ;CHP*(14 

3); 

530 PRINTOjrin.nMR'M 191 > : :PRINTe381 
,CHP*< 191) ! : PRINT244S, STRING*) 64, 1 
40) s :PRINT«76B, STRING* (64, 140) -, :PR 
INT312,STRING*(5,140>:" CP ";CHR*C 
L40M" 300 "jCHR*(14Q)|" ";T<3$:" 
";STPING*(6, 140) ; 

590 PP.IN" r @90, STRINGS 13, 140) : :RRIN 
T'3S9,CHR*tlSS) : IPRINTB103,CHRS(18S 
) ; :PRINT3i53,CHR*<191> ; iPRINTeiA7, 
CHP*(191> ! :PRINTe217, STRING* I 15,13 
1) s eF0RNNalTaNM!PRINTaPfl(NN)-3,NM* 
(NN) ; :NEXT :F0RNN=9TO15: PRINTER (NN 
I ,TXS<NN) JSNEXT 

600 IFP0INTtl23,16)=00RPaiNT( 10,7-7 
> -0THENGOT0570 : E' .SERETUPN 
610 F0PN=lT0Z5:PF:INT»g96, STRING* (6 
3 , 32 ) ; : F0RT=1 T020 : NEXT : PRINT8B96 , " 
VOCE GUEBROU fl BRNCR DO COSSINO ! 
1 TECLE < ENTER) !'"■;: FORT=] T050 = X 
*=INkEV* : IFX*( ) " "THENRUNELSEWEXTT , 
MsiNPUTX*tRUN 

620 CLS:PRINT"RODH Dfl F0RTUNR "•; 
CHR*<i40); M P^OLOGICR CP-500 ":PRI 
NT5TRING* (54,191) : STRING* ( 10,170) ; 
:PRINT"0 SEU COMPUTRDOR PESSORL " :P 
RINT8516,"PRRR" INSTRUCOES TECLE <I 
) PRPq COMECflR TECLE < ENTER >■' :PRIN 
T9S96, STRING* (64, 133) ; 
630 P-0 : FORN" 1 T061 : PRINT8893+P , CHR 
*(179) ; :PRINT(»S97+P,CHR*< 133)! = p=P 
4-liNEXT:RRINT«956, STRING*! 3,133) ;: 
[P*=" u tIP*=INKEY*iIFIP**""THEN630 

ELSEIFIP*»"I"THEN640 ELSERETURN 
640 PRINTe236,"l. INTRODUZO OUPNTD 
S VRO JQBRR ( 1-3 ) 

2. INTPODUZR N011E DE CRDR JOGRDO 
R 

3- CRDR JOGRDGR DEVE EBCOLHEP UM N 
UMEOD" 
650 PRINT"4. RPOS R ULTIMR ENTRRDR 

R RDDR COWECR GIRRP" tPPINTSTRING* 
(63,140) iPRINT" NOTR: O NUHEPO 

VENCEDOP E RNUNCIHDO RPOS R PODR 
PRPRF: - 

TECLE << ENTER)) PRRR VER O RESULTR 
DO. SE TDDOS OS JOGRDORES" 
660 PRINT"QUISEREH MRNTER HS MESMR 
S RPOSTRS TECLE (ENTER) OU ESCCILHR 

NO^aS MUHEROS. 

((SE RLGUEtl MUDHP. UM NUMERO . TODO 
S DEVEM RPOSTflR NOVRHENTE- ) ) " :PRIN 
T®977, "TECLE (ENTER) PRPR COMECRR" 
; : GOT Q 630 




Voce pretende vtajar e tem receio de deixor a sua casa 
vazia? E se voce a entregasse aos cutdados do seu CP 500, 
que em horas determinadas acendesse e apagasse as lu- 
zes,. a TV, o FM? Isto ja e possivel se voce acoplar ao 
seu micro o circuito eletrico que descrevemos nesta p6gi- 
na, Tanto o circuito como o artigo foram elaborados, es- 
pecialmente para Geracao Prolog ica, por Alexandre 
Faragd, arquiteto, que atualmente frabafha na Eltec Cons- 
trucdes Eletricas. 



O CP 500 dispoc dc Lima saida para 
gravador cassete, constitufda por un) co- 
nector DIN de cinco pinos (vide manual 
de opcragao e linguagem Basic do CP 
500, pag. 60). Dois desses cineo pinos, 
os pinos 1 e 3, estao conectados a um 
contato dc rele internamente ao CP 500, 
sendo inilizados por este para acionar 
ou desligar o motor do gravador casse- 
te, ai raves do bit I da porta 236. 

O circuito que desenvolvemos e de- 
talhamos na fig. 1 permite o aproveita- 
menio desses mesmos pinos (1 e 3) para 
o aeionamenio, at raves de um rcle in- 
tennediario, de outros equipamuuKis 
eleiricos conums, taiscomo: lampadas, 
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sirenes, pequenos motorcs e eletrodo- 
mesticos em geral. 

Descri(;ao do Circuito 

O circuito de comutacio deve ser ali- 
mentado por uma tomada comum de 
1 10 volts. Est a tensao entra at raves da 
chave geral CH 1 e do fusivel Fl no pri- 
mario do trans formador II, que deve 
fornecer no secundario tuna tensao en- 
tre 9 e 10 volts. 

A ponle de diodos Dl a D4 forma tun 
retificador dc onda completa que retifi- 





ca a tensao secundaria do transforma- 
dor c o capacitor CI faz a filtragem da 
tensao retificada. Est a tensao, Hltrada 
e retificada, passa entao pelos pinos 1 
c 3 do collector eassete do CP 500, aeio- 
nando ou nao a bobina de RL1 , que por 
sua vez liga ou desliga o eqiiipamcnlo 
eletrico eoneetado a saida AC do cir- 
cuiio. 

O ramo formado peio LED D5 e pe- 
lo registrador Rl funcionam como uma 
simples indicaeao piloto de tensao de 
circuito. O diodo D6 tern a funcao de 
proieger o circuito da sobretensao indu- 
zida pcio acionamento de RL1. 



Software de Operagao 

Uma vez que o circuito esteja devi- 
damentc eoneetado, o controlc do equi- 
pamento eoneetado a saida AC passa a 
ser feito pelo CP 500. Para ligar a saida 
AC digite diretamente, a partir do Ba- 
sic, ou inclua no programa o seguintc 
comando: 
OUT 236,2 

Para desligar a saida AC utilize o se- 
miintc comando: 
OUT 236,0 



Em Assembler, utilize as rotinas: 

LIGA LD A, 2 
OUT (236), A 

DESLIGA LD A,0 
OUT (236), A 

Importante nao esquecer que a po- 
tencia maxima da carga conectada a sai- 
da AC depende da capacidade de cor- 
rente do rele" utilizado. Para o rele aqui 
especificado, essa potencia nao devera 
ser superior a 200 W. 




Re\aQ a ° 



de 



CHI — Chave SPST 

Tl — Trans formador 110/10v, 500mA 

Dl, D2, D3, D4 — Diodos 1N4001 

CI Capacitor 4700 U.F 16v, eletrolitico 

DS — LED 

Rl — Resistor 330 Q, X l/4w 

D6 — Diodo IN4I48 

RL1 — Microrele para circuito impres- 

so (bobina I2Vcc) 

Fl — Fusivel 0,5A 



Diagrama esquemdtico do circuito 
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NOVO CP 300 PROLOGICA. 



pequeno 
grande micro. 

Agora, na hora de escolher entre um 
microcompulador pessoa! simples, de facil 
manejo e um sofisticado microcompulador 
profissional, voce pode ficar com os dois. 
Porque chegou o novo CP 300 Proldgica. 
novo CP 300 tern prego de 
microcomputador pequeno. Mas memoria 
de microcomputador grande. 

Ele ja nasceu com 64 
kbytes de memoria 
interna com 
possibilidade de 
expansao de memd- 
podo ser ria externa para ate 

acopiadoauma quase 1 meqabyte. 

E tern um teclado profissionai, 
que da ao CP 300 uma versatilidade incrivel. 
Ele pode ser utilizado com programas de 
fita cassete, da mesma maneira que com 
programas em disco. 







Compativel com 

programas em lita 
cassete ou em disco. 



Pode ser ligado ao seu"aparelho de TV, da 
mesma (orma que no terminal de video 
de uma grande empresa. 
Com o CP 300 voce pode 
fazer conexoes telelonicas 
para coleta de dadds, 
se utilizar 
deuma 







Pode ser llgarjo 
a om televisor comom 
ou a um sollstlcado 
terminal de video. 
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64 K 



unico na sua faixa que ja 
nasce com 64 kbytes de memoria. 



impressora 

e ainda dispor de tddos 
os programas existentes 
permite_ para o CP 500 ou o 
ibEm. TRS-80 americano. E o que e meihor: 

voce estara apto a operar qualquer 

outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua (aixa tern tantas possibilidades de 
expansao ou desempenho igual. 
CP 300 Prolbgica. 
Osoutrosnao mum p RO LOGICA 

fazem que ele faZ, | ^ microcomputadores 

pelo prego que ■■ 

ele CObra. h Eng • Lui)Caji<H Beriini. 1 1W ■ if 



p£SERVflDE MEBCAD 



v-AWBES HAc ^ H . |S 




X6 VA*V*vAvV-^ 



«- N3*^ 






«w 



'&##*** 



gsKV 1 



AM 
Maiiaus- 234-1.045 

•BA-SalraJor - 247-B951 
• CE-Fo-rtaieza - 226-0871 - 244-244B 
■OF-Brasilia - 226-1523 - 225-4534 ■ ES-Vila Velta 
229-1367 - Vilfjria - 222-5811 -GO-Goiania - 224-7098 -MT 
Cuiaba- 321-2307 -MS-Campo Grande -383-1270 -Oourados - 421-1052 
■ MG-BeiD HoriMi* ■ 227-0881 - Bslim ■ 531 -3806 - Ce! Fabriciano - B4 1-3400 - Mil 
de Frjia - 212-9075 - Uoertandia - 235-1099 • PA-Be!em - 228-001 1 ■ PR-Cascavef - 23-1538 - Curi- 
a ■ 224-5616 - 224-3422 - Foido Iguacu - 73-3734 - Lnndrina - 23-0065- PE-Reci-ie - 221-0142 ■ Pl-Teresms 
222-0186 -RJ-Campos -22-3714 - Rwde Janeiro -264-5797 -253-3395 - 252-2050- RN-Natal - 222-32 12 -RS-Caxias do 
Sul - 221-3516 - Pelotas ■ 22-9918 - Porlo Alegre - 22-4800 - 24-0311 - Santa Rosa - 512-1399 • RQ-Parto Veltio - 221-2656 -SP 
Banetos - 22-6411 ■ Campinas ■ 2-44B3 ■ Jundial - 434-0222 - Marilia - 33-5099 ■ Mogi das Crises - 469-6640 - Piracicaba - 33-1470 - Ribeirao 
Prelo ■ 625 ■ 5926 - 635 ■ 1 1 95 - Sao Joaqm m da Barra - 728-24 72 ■ Sao Jose ttos Cainpas - 22 - 73 1 1 - 22 -4740 - Sao Jose do Ri o P reto - 32 ■ 2642 - 5anlos - 33-2230 
icaba - 33-7794 . SC-Blun-,enau - 22-6277 ■ Chapeco - 22-0001 - Cticmma - 33-2604 - Flonancpons - 22-9622 - Joinviie - 33-7520 • SE-Araaju - 224-1310 



Soli cite 
demonstrap3o 
nos principals 
magazines. 
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A Proidgica esta" langando 
urn micro que vale por dois: o CP 500 
com face dupla. 

Operando com dois drives e apenas 
dois disketes. o CP 500 pode armazenar 
ate 700 Kbytes. , 

O segredo e a face dupla. Ela permite ao CP 500 ler 
dos dois lados do diskete e dobrar sua capacidade 
de memdria. 

mais incrivel £ que ete custa 30% a menos do que 
qualquer configuracao semelhante. E voce ainda 
economiza dinheiro com a compra de disketes. 



CP 500 -023D FACE DUPIA. 



O CP 500 opera com ate 16 digitos, uma 
verdadeira mao na roda para quern quer solucoes na Area 
financeira. 

Com ele voc§ tern acesso ao Videotexto, ao Projeto 
Cirandao e a inumeros bancos de dados existentes no Pais. 
Outra vantagem: vocB nSoprecisa abrir mao dos softwares 
que voce ja possui. 

D§ um pulo ate o seu Revendedor Proidgica e fique 
face a face com a dupla face do CP 500. Vale a pena. 



PROLOGICA 

microcomputadores 



Filiate 
j ABICOMP . 



it' 



Av. Eng.° Luis Carlos Berrini, 1168-SP 



